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This  thesis  describes  the  detailed  design  and  implen-enta- 
tion  of  a  star  cluster  local  area  network  arong  multiple 
Zenith  Z-13?i  ni crocomputers .  The  Z-10es  are  linked  together 
ty  the  Concentrator,  a  server  system  consisting  of  a  power 
supply,  an  iS"BC  96/12A  single  toard  computer,  and  three  BLC 
8538  eight  channel  I/O  expansion  hoards,  through  RS232c  USART 
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program  resident  in  the  Concentrator  which  provides  the  com- 
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and  message  transfer  (loth  point  to  point  and  trcadcast), 
directory  listing  transfer,  and  online  user  identification. 
The  program  and  utilities  are  written  in  JANUS/Ada,  with 
assemtly  language  subroutines  for  machine  specific  functions, 
and  are  designed  to  run  with  the  CP/'^-66  operating  system. 
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I.   INTRODUCTION 

A.   BACKGROUND 

A  critical  requirement  for  today's  office  and  laboratory 
erivircnrent 5  is  the  sharing  of  expensive  data  and  resources. 
A  network  of  rnicr ocorputer  workstations  linked  together  can 
share  data  ty  t  ransmi  ttin,^  files  and  messages  tetween  users 
and  share  pheripheral  resources  such  as  printers  by 
schedulinf<  users  in  the  rrost  efficient  manner.  In  the  labo- 
ratory environment  in  particular,  it  is  especially  important 
and  desirable  to  share  data,  experiments,  and  software 
development  among  lab  rembers  and  to  provide  the  means  to 
distribute  data  to  all  members  from  a  single  source  such  as 
the  professor  or  laboratory  supervisor.  Broadcast  transmis- 
sion from  one  workstation  to  all  workstations  of  files  or 
messages,  or  using  one  workstation  as  a  'bulletin  board'  to 
store  messages  over  a  period  of  time  for  access  by  all 
members,  both  serve  this  purpose.  A  testbed  for  research 
in  data  and  resource  sharing  in  the  laboratory  environment  is 
a  MULTIBUS  based  computer  configuration  which  permits  a 
single  board  computer  to  communicate  with  three  input /' output 
boards  each  containing  eight  RS-232  ports.  This  configura- 
tion serves  as  a  concentrator  for  a  star  cluster  local  area 
network,  which  can  connect  up  to  twenty  four  RS-232 
compatible  devices. 

This   thesis  is,   in  many  ways,   a  companion  to  the  thesis 
done  by  Lt.   Cmdr.   Robert  Hartman  and  Capt.   Alec   Yasinsac, 
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[Ref.  1],  Their  thesis  involved  the  implementation  of  a 
protot:ype  star  cluster  local  area  network  of  microcomputers 
connected  to  a  Vax  ll/7e?^  computer  over  the  ETKERNIT  communi- 
cations device.  The  Vax  11/76?  system  operating  under  the 
U^JIX  operatinfj  system  provides  access  to  the  ARPANET  wide 
area  network.  Their  local  area  network  is  operated  under  the 
^S-■DOS  ervironment  and  involves  the  use  of  various  protocols 
np'^essary  for  communications  with  ARPANET. 

The  air  of  this  thesis  is  to  provide  an  efficient  data 
communications  environment  limited  to  the  local  area  netwcrk 
of  Z-100  workstations  running  under  the  CP/M-85  operating 
system. 

F.   PROJECT  DESCRIPTION 

1 .   Proposed  Capatilities 

a.  local  Eile  Transfer 

Any  microcomputer  should  be  atle  to  transfer  a 
file  to  any  other  microcomputer  asynchronously.  Additional- 
ly, any  microcomputer  should  be  able  to  'broadcast'  files  to 
multiple  microcomputers  simultaneously. 

b.  Local   f^essage   Transfer 

Any  microcomputer  should  be  able  to  transfer 
messages  in  the  same  manner  es  files,  with  the  additional 
capability  of  having  one  microcomputer  serve  as  a  'bulletin 
board'  for  the  others. 


c.  Directory  Trar^sfer 

Any  microcomputer  should  le  atle  to  transfer  a 
iirectory  in  the  sarre  manner  as  messages  and  files. 

d.  Online  User  Identification 

Any  microcomputer  should  "be  able  to  ottain  a 
'net  status';  the  identities  of  all  currently  active  work- 
stations in  the  network,  at  any  given  tire. 

2.  Target  Hardware 

The   proposed   local  area  network  consists  of  up   to 

twenty  four  Z-lf^0  microcomputer  workstations  connected  via 
RS-232  corrmun  ications  ports  to  a  central  MULTIBUS  hased 
single  hoard  computer,  which  acts  as  a  central  switchboard  to 
provide  communications  between  the  workstations. 

3.  Software 

All  the  applications  software  for  the  microcomputers 

and   the   processing  software  for  the  single   board   computer 

acting  as  a  switchboard  has  been  written  by  the  author  for 
this  thesis. 

C.   STRUCTURE  OF  THF  THiSIS 

The  majority  of  this  thesis  is  the  program  code  that 
implements  the  network.  The  accompanying  text  provides  system 
description,  design  decisions,  problems  encountered,  and 
operating  and  maintenance  procedures.  Chapter  II  describes 
the  hardware  of  the  system.  Chapter  III  details  the  ^086  CPU, 
and  Chapter  IV  explains  the  CP/M-6e  operating  system.  A 
description   of   the   JANUS/Ada   language   detailing   useful 

10 


features,  problems  encountered,  and  lessons  learned  frorn  the 
prospective  of  a  newcomer  to  the  lan,^ua^e  with  reference  to 
the  full  ADA  lan,fi;ua^e  is  provided  in  Chapter  V.  Chapter  VI 
explains  the  design  methodology  and  the  details  of  the 
software  implementation  with  descriptions  of  each  major 
module . 

The  appendices  provide  the  program  code,  user  and  mainte- 
nance manuals,  a  glossary,  and  a  "bitli  ography . 
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II 


KAFDWAEE 


A.   TH5  8S/12A  SPC 

Thp  9e/12A  sirif^le  toard  corrputer  is  &  corrplete  ccrriouter 
systerr  on  a  single  printed  cir'^uit  toard.  It  includes  a  16 
tit  8086  CPU,  32K,  expandable  tc  64K,  bytes  of  dynamic  RAM,  a 
serial  conrrunicati  ons  interface,  three  programmatle  parallel 
I/O  ports,  prograrrmatle  timers,  priority  interrupt  control, 
MULTIBUS  interface  control  lOi^ic,  tus  expansion  drivers  for 
interface  with  ether  compatible  MULTIBUS  expansion  boards, 
and  up  to  16K  bytes  of  ROM.  Table  2.1  lists  the  possible  I/O 
port  addressing  asignments. 

TAELt  2.1 
86/12A   I/O  ASSIGNMENTS 


I/O  Address 


IC 


Functi  on 


00  C0 
or   00C4 

00C2 
or   00C6 


8259A 

Programmable 
Interrupt 
Controller 


write:  ICWl,  0CW2  &  0C'*3 
read:  Status  and  Poll 

write:  ICW2,  IClft'3,  ICW4, 

OCWl 
read:  OCWl  (Mask) 


00C8 
00CA 
00CC 
00  CF 


e255A 

Programmable 
Peripheral 
Interface 


write:  port  A  (Jl) 
read:  port  A  (Jl) 
write:  port  B  (Jl) 
real:  port  B  (Jl) 
write:  port  C  (Jl) 
read :  port  C  ( Jl )  , 
write:  Control 
read:  none 


Stat 
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?eDe  8253  write:  Counter  0 

Froprarrmatle  (load  cr.t/N) 

Interval         read:  Counter  0 
00D2  Tirrer  write:  Counter  1 

(load  cnt/N) 
read :  C  ounter  1 
?eT)4  write:  Counter  2 

(load  cnt/N) 
read:  Counter  2 
00C6  write:  Control 

read:  none 


0!?r8  8251A  write:  Data  (J2) 

or   20 rc  USART  read:  Data  (J2) 

00DA.  write:  Mcde/Corrmand 

or   ?0DF  read:  Status 


The  8528  Eight  Channel  C  orrmunica  ti  on  Expansion  Board  is  a 
fully  prograoirralle  synchronous/asynchronous  serial  communica- 
tion channel  with  RS232C  interfaces  connected  to  IC2e51 
USARTs  for  serial  communiratioas  with  other  devices,  and  is 
corpatitle  with  the  M.ULTIBUS  system.  The  total  address  space 
for  each  heard  is  64,  or  40  Kex,  locations.  Each  hoard  has  a 
tase  address  that  is  selectahle  ly  DIP  switches  on  the  hoard 
and  is  set  to  2100  Hex  for  this  implementation.  Disregarding 
the  hase  address  for  the  moment,  hoard  1  would  start  at  0, 
hoard  2  at  40  Eex,  and  so  on.  The  primary  locations  of 
interest  are  the  data  register,  the  status  register,  the  mode 
register,  and  the  command  register.  These  locations  are  0-3 
for  port  0,   4-7  for  port  1,   and  so  en  up  to  20  Hex  for   the 
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ei^ht  USARTs.  The  rerainin,?  address  locations  are  for  inter- 
rupt handling;  and  are  not  used  in  this  implementation.  The 
pert  addressin,s;  is  shewn  in  Table  2.2. 


Address  (Hex) 


TAELI  2.2 
USART   ADDRESSING 
Fu^cti  on 


e-3 
4-7 
8-3 
C-F 
1?-13 


R/W:    R;  Status  R/W:    R/*: 

Data   W:  Syncl/Sync2/Dle   Mode   Command 


14- 

la- 

ic- 

23. 
21. 
22, 
23, 
24, 
25, 
26. 
27, 
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IE 

IF 

28,30,38 

cy .  <_  J. ,  •_  y 

2A.32,3A 

2P,33,32 

2C,34,3C 

2r,35,3C 

2F, 36,31 

2F,37,3F 


Port  reset  register  (write  only) 

N/A 

Transmit  interrupt  register 

Transmit  interrupt  requests 

Transmit  interrupt  mask 

Transmit  interrupt  requests 

Ring  detects 

N/A 


B.   THE  Z-100 

The  Zenith  Z-100  is  a  dual  processor  8085/8086  computer 
with  either  one  or  two  5.25  inch  floppy  disk  drives  and  one 
Vi'Hchester  hard  disk  drive  providing  up  to  750K  tytes  of 
directly  addressable  RAM.   It  is  powered  ty  a  5MHZ  clock. 

The  Z-100's  main  circuit  hoard  contains  the  6085  and  8068 
CPUs  and  the  3-100  IEEE  696  tus.  It  has  the  capacity  for 
192K   tytes  of  memory.    Also  contained  on  the  main  hoard   is 
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the  8241A  keytcard  processor,  two  HS-232  serial  interfaces 
and  connectors,  one  parallel  interface  and  connector,  and  the 
video  circuit  toard  interface. 

The  video  circuit  toard  contains  the  CRT  controller  and 
supports  a  tit  rrapped  video  systerr  with  up  to  three  tanlcs  of 
32K  tyte  rrerory  devices  for  red,  f^reen ,  and  tlue. 

The  floppy  disk  drive  controller,  which  can  support  up  to 
four  5.25  inch  and  four  ei^ht  inch  drives,  and  the  Winchester 
disk  controller  are  on  separate  cards  and  are  each  connected 
to  one  of  the  slots  of  the  S-10e  tus. 

ether  hardware  features  of  interest  include:  the 
S2c9A  Fro^rammatle  Interrupt  Controller,  the  66A21  Peripheral 
Interface  Adapter,  the  8253  PrCf^ranmatle  Interval  Tirrer,  and 
the  2661  enhanced  Pro^rarrmatle  Corrrrunicati  ons  Interface.  The 
1-112  has  two  serial  ports,  lateled  Jl ,  the  printer  port,  and 
J2,  the  rrcderr;  port,  tcth  of  which  are  connected  through  the 
2661  interface. 
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III.   THE  CINTRAL  PROCESSING  UNITS 

A.   TRT^  8086 

The  86/12A  single  toard  corrputer  uses  the  INTEL  6066 
mirrcprocessor  for  its  CPU  (Central  Processing  Unit).  The 
6086  is  a  high  performance,  general  purpose  16  tit  micro- 
processor. It  has  a  20  hit  address  tus,  allowing  access  to  a 
full  rregahyte  of  rremory .  Since  the  largest  register  in  the 
B286  is  only  16  tits,  it  uses  segrnenta  ti  on  to  form  20  tit 
addressess  from  the  four  16  tit  address  registers;  the  CS 
(Code  Segment),  the  ES  (Data  Segment),  the  SS  (Stack 
Segment),  and  the  ES  (Extra  Segment).  These  four  registers 
reside  in  the  RIU  (Bus  Interface  Unit). 

The  EU  (Execution  Unit)  contains  nine  16  tit  registers 
interfaced  to  a  16  tit  data  tus,  four  of  which  are  tyte  or 
word  addressatle;  the  AX  (AE,  AL),  EX,  CX,  and  the  DX,  and 
four  of  which  are  only  word  addressatle;  the  SP  (Stack 
Pointer),  the  BP  (Base  Pointer),  the  SI  (Source  Index),  and 
the  DI  (Eestination  Index).  The  remaining  register  is  the 
flag  register  which  has  nine  usatle  tits;  Carry,  Parity, 
Auxiliary  Carry,  Zero,  Sign,  Trap,  Interrupt,  direction,  end 
Overflow.  Lastly,  there  is  one  16  tit  IP  (Instruction 
Pci  nter  )  regi  ster  . 

The  BIU  and  the  EU  operate  asynchronously  in  the  8066. 
Additionally  the  BIU  has  an  instruction  otject  code  queue. 
These  two  features  comtine  to  virtually  eliminate  instruction 
fetch   time.   By   fetching  the  next   instruction,   while   the 
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previous  is  "being  decoded  aid  executed,  ard  loadir,^  it  in  a 
queue,  the  S'^Se  ensures  that  there  is  always  an  instruction 
ready  the  instant  it  is  required.  Only  when  a  jump  instruc- 
tion causes  the  current  instru-^tion  sequence  to  he  changed, 
is  the  instruction  queue  flushed. 

B.   THE  8298 

The  Z-ie?  uses  toth  the  6  tit  8085  CPU  and  the  16  hit 
&?&B  CPU.  The  8088  is  the  processor  of  interest  to  this 
thesis.  The  8268  is  ccmpatitle  with  the  8066  and  is  (to  the 
prograrrer)  virtually  identical.  In  particular,  the  3ZB& 
prograrrrrahle  registers  and  addressing:  rrodes  are  exactly  the 
sarre.  The  significant  difference  is  that  it  has  an  8  tit 
data  tus  versus  the  16  tit  data  tus  of  the  6^86. 

The  differences  between  the  two  CPUs  are  evidenced  in 
execution  times.  The  8088  has  a  four  tyte  instruction  queue 
compared  to  the  six  tyte  queue  in  3086.  This  results  in  more 
code  fetches  per  instruction  and  slows  down  instruction  pro- 
cessing. The  8  tit  data  tus  requires  the  6088  to  take  two 
tus  cycles  whenever  the  8286  would  have  used  only  one  to 
fetch  16  tits  of  data.  All  other  execution  time  values  are 
identical . 
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IV.   TEE  OPERATING  SYSTF^ 

CF/M-Sc  is  an  operating  system  designed  ty  Digital 
Research  for  the  S<Z'&6  and  8268  sixteen  hit  rricroproces  sor .  It 
contains  three  program  modules:  the  CCP,  the  BDOS ,  and  the 
PIGS.  Entry  to  the  BDOS  is  provided  thrci:gh  the  reserved 
software  interrupt  #224  (E^  Hex),  while  entry  to  the  BIOS  is 
provided  ty  either  a  jump  vector  located  at  offset  2500  Hex 
from  the  operating  system  "base,  or  hy  use  of  the  BDOS 
function  #5?.  For  this  implementation,  only  entry  to  the  BDOS 
was  required.  BDOS  functions  were  used  for  keyboard  input, 
console  output,  and  file  operations.  Tatle  4.1  lists  each 
function  call  used  with  entry  and  return  parameters 
ind  ica ted  . 

Access  to  files  in  CP/M-86  is  achieved  "by  use  of  the  Pile 
Control  Block  fECB)  whose  format  is  shown  in  Tatle  4.2.  Each 
FCB  is  identified  ty  specifying  its  relative  offset  from  the 
data  segment  register.  When  reading  from  or  writing  to  a 
file,  BDOS  uses  sequential  128  tyte  records  to  transfer 
information  from  the  file  into  memory  at  the  current  Direct 
Memory  Address  (DMA)  and  vice-versa.  The  DMA  can  he  specified 
ty  the  user  as  the  relative  offset  from  a  specified  or 
default  DMA  base. 

CP/M-Se  uses  one  dire'^tory  entry  per  16K  bytes  of  file 
data,  termed  an  extent.  During  sequential  reads  and  writes 
the  "or"  field  of  the  FCB  is  incremented  for  each  128  byte 
record   until   the  next  extent  is  required.    Unless  no  more 
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TABLE  4.1 
pros   FUNCTIONS 


FNTRY 


FUNCTION 


RFTURNI 


CL:  e2H,  TL:  Ascii  Char  Console  Output 

CI:  3eH,  DI:  0FFH  (Input);  Direct  Console  I/O 
eFFK  (Status); 
Char  (Output) 

CL:  eCH  Reset  Disk  System 

CL:  eFH,  DI:  Selected  Disk  Select  Disk 

CL:  eFH,  lX:  FCE  Offset  Open  File 


CL:  len,  DX:  FC?  Offset     Close  File 


CL:  IIH,  DX:  FCr  Offset     Search  For  First 


CI:    12H, 


Search   For   Nert 


CL:  13H,  DX:  FCE  Offset     Delete  File 


CL:  14H,  DX:  FCP  Offset     Read  Sequential 


:L:  15E,  DX:  FCr  Offset     Write  Sequential 


CL:  16H,  DX:  FCE  Offset     rake  File 


Nor  e 

AL:  Char, 
Status 


None 
None 

AL:  Return 
Code 
(0-3,  0FFH) 

AL:  Return 
Code 
(^-3,  0FFH) 

AL:  Directory 
Code 

AL:  Directory 
Code 

AL:  Return 
Code 
(0,  0FFH) 

AL:  Return 
Code 
(0,  1) 

AL  :  Return 
Code 
(0,  1,  2> 

AL:  Return 
Code 

(0,  1,  2,  <^, 

0FFK  j 


CL:  lAH,  DX:  DI^A  Offset     Set  DMA  Address     None 
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TABLE  4.2 
FCB   FORMAT 


TdfTfi" 
1     1 

!f2T  / 
1      1 

1      1 

!  f8!  tl  ! 
1       1 

1        1 

1  t2Tt3iexl5l Is2|rr!d0| 
1       1       1       1       1       1       1       1 
1    _i       1       1    _i 1 1 1 

/ 

{dnicrlrej 
till 
1 1 1 1 

!rl!r2l 
1       1 

1              ! 

0?  Zl    ^2    ...  08  09  10  11  12  13  14  15  Ic  . . .  31  32  33  34  35 


where; 


dr:      drive  code  (0  -  16) 

0  =>  default  drive 

1  =>  drive  A 

2  =>  drive  B 

•  •  • 

16  =>  drive  P 
fl...fP:  File  r.arre  in  Ascii  upper  case 
tl  -  t3:  File  type  in  Ascii  upper  case 

(tl  high  tit  =  1  =>  R/C  file) 

(t2  hi.^h  hit  =  1  =>  Sys  file,  no  m) 
ex:      Current  extent  nunter  (0  -  31) 

Set  to  0  ty  user  before  file  I/O 
si:      Internal  use 
si:      Internal  use,  set  to  0  on  Make,  Open, 

and  Search 
re:      Record  count  for  ex  (0  -  128) 

d0...dn:  CP/M-66  internal  use 

cr:      Current  record  for  Read/Write  Sequential 

Set  to  0  hy  user 
r0  -  r2 :  Optional  randorr  record  numter 


record  or  directory  space  exists,  the  next  extent  is  auto- 
ratically  opened.  Then  the  "cr"  field  is  reset  to  zero  and  a 
new  directory  entry  for  the  new  extent  is  created. 

Vihen  directory  searches  are  nade,  the  128  tyte  record 
containing  the  rratched  entry  is  placed  in  memory  at  the  DMA 
address.  For  files  with  multiple  extents,  the  first  direc- 
tory  entry  is  matched.    There  are  four  entries  per   record. 


20 


The  locaticn  of  the  matched  entry  is  corputed  ty  nnltiplyirg 
the  offset  returned  by  the  function  call  ty  32  and  addin^^  it 
to  the  DMA  address. 

DDT66  proved  to  te  an  invaluatle  tool  to  the  development 
of  this  thesis.  DETSe,  a  utility  program  supplied  with  CP/M- 
86,  is  a  dynamic,  interactive  detu^  and  test  program  for  the 
CF/K-8e  environrrent .  It  wor>:ed  excellently  with  toth  the 
hi3;h  level  JANUS/Ada  cod°  and  the  assembly  language  sub- 
routines interfaced  with  the  hi^h  level  code.  LISASMSe,  the 
disassembler  provided  with  the  JANUS/Ada  system,  presented 
the  high  level  code  in  its  post-compiled  assembly  form  which 
could  then  be  debugged  using  CCT8e.  Completion  of  this 
thesis  would  not  have  been  possible  without  the  use  of  CDT86. 
Its  only  drawback  was  a  tendency  to  'slow'  down  a  program  to 
the  point  where  it  would  work  under  DDT8e,  but  would  fail  in 
the  real  time  environment  outside  EDTS6,  which  caused 
understandable  confusion. 

Additional  detailed  information  about  CF/M-Se  can  be 
found  in  [Ref s.  2  S.  3]  . 
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V.   THE  FROaPAMMINl  LANGUAGE 

ADA  is  the  Departnent  of  Defense's  ma'^.iated  language 
for  enledded  ccrrputer  systems.  Ace  crdi^fs;  to  DOD  directive 
5?i00.31  [Ref.  4 J  ,  "all  trission  critical  defense  systers  that 
enter  advanced  developtrent  status  after  1  Jan  64,  or  that 
enter  full  scale  development  after  1  Jul  84"  will  le  coded 
in  ADA.  Introduced  in  its  final  form  in  September  1960,  ADA 
has  inspired  much  activity,  discussion,  and  debate.  Due  to 
its  larp!e  size  and  complexity,  commercial  compilers  are  only 
now  tec  cm  ins;  available. 

JANUS/Ada,  an  implementation  designed  for  microcomputers, 
was  chosen  for  this  project  because  of  its  availability,  and 
its  suitability  to  systems  programming  tasKs.  Although  rot 
fully  ADA  compatible  in  its  treatment  of  strings,  use  of 
inline  ASf^  statements,  or  the  data  type  Eyte,  and  lacking  the 
capability  for  exception  handling  or  concurrent  tasking, 
research  in  the  JANUS/Ada  implementation  should  prove 
invaluable  to  the  effective  use  of  the  full  language  itself; 
a  language  destined  to  be  the  Department  of  Defense's  stan- 
dard for  embedded  systems. 

This  author's  programming  experience  prior  to  this 
project  was  limited  to  only  the  basics  of  Pascal  and  Assembly 
languages.  According  to  Bernard  [Ref.  5],  my  experiences  car 
best  be  described  by: 
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V'hile  people  who  have  a  hii?h  level  langua,e;e  should  te 
atle  to  learn  what  is  referred  to  as  'the  Pascal  subset' 
of  ADA  with  atcut  four  weeks  of  full-tine  study,  me-y 
educators  report  that  it  takes  six  ronths  to  learn  to  make 
effective  use  of  the  langua,^e. 

Also  required  are  a  firn'  knowledge  of  structured  pro^ram- 
rrin^  and  software  engineering.  it  is  clear,  however,  that 
the  AEA  designers  were  correct  to  base  the  language  syntax  on 
Pascal,  a  lan^ua^e  desie^ned  and  recognized  as  the  standard  to 
teach  students  atout  structured  proeramring . 

The  Tost  impressive  and  useful  control  structure  in  ATA 
is  the  'Loop'  statement.  The  ability  to  exit  a  loop  wherever 
and  whenever  desired,  combined  with  the  traditional  con- 
structs of  'For'  and  'While',  makes  the  Loop  statement 
applicable  to  an  almost  infinite  set  of  design  structures  and 
truly  supports  the  concept  of  structured,  easy  to  read 
programming.  This  feature  alone  separates  ADA's  control 
structures  from  Pascal,  Cobol,  Fortran,  and  others. 

JANUS/Ada's  resident  assembly  language  interface  is  also 
extremely  useful.  Routines  that  require  high  speed  and 
efficiency  or  specific  bit/byte  manipulation  could  le  coded 
in  assembly  language  and  called  from  the  hign  level  program. 
This  feature  answers  the  traditional  systems  programmer's 
need  for  control  of,  and  access  to,  the  specific  machine.  The 
ease  with  which  assembly  code  could  be  used  in  ronjuncticn 
with  high  level  JAN'US/Ada  code  was  very  important  to  this 
project.  Almost  all  of  the  I/O  and  file  operations  required 
in   the   programs  were  coded  in  assembly  language.   This   was 
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partly  for  speed  and  efficiency  and  partly  tecause  rany  of 
the  I/O  end  file  operations  tuilt  into  JAN'US/Ada  would  not 
work  (for  reasons  undiscovered)  after  a  single  call  to  the 
Cp/M-Q^  operating  system  was  issued. 

AEA's  use  cf  packages  as  the  unit  of  program  nodularity 
is  an  important  step  in  the  evolution  of  structured  program- 
ring  languages.  Packages  contain  data,  procedures,  and/nr 
functions  that  for  reasons  of  a  particular  program's  modular 
design  are  grouped  together  to  form  a  unit.  A  program's 
various  packages  are  then  linked  together  for  execution. 
Packages  support  efficient  modular  design  and  allow  for  the 
effective  construction  of  program  litraries  of  frequently 
used  routines  and  data  structures  for  programmers  to  use. 
Lata  and  routines  are  made  available  to  users  and  other 
packages  through  Specifications,  which  provide  all  the  neces- 
sary information  for  their  use  while  hiding  the  details  of 
the  implementation,  thus  supportinji  the  principle  of 
information  hiding. 

Packages  are  also  the  main  instrument  of  separate 
coirpilati  on ,  which  is  becoming  a  requisite  feature  of  modern 
programming  languages.  Unless  the  vehicle  for  communication 
between  linked  packages,  the  specification,  is  changed, 
modifying  a  single  package  requires  only  its  rec ompila ticn 
and  not  the  recompilati on  of  packages  referencing  it  or 
referenced  by  it. 
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Separate  compilation  is  particularly  important  in 
JANUS/Ada  ,  and  "by  eTtensior,  ATA,  tecause  the  size  and  com- 
plexity of  the  language  dictates  that  compilers  for  it  te 
also  larF;e,  complex,  and  relatively  slow.  This  rauses  soft- 
ware development  protlems  of  time  and  storage. 

The  compiler  itself,  while  a  tit  slow,  provided  helpful 
compile  and  run  time  error  checking.  Because  ADA  (end 
JANUS/Ada  1  is  a  strongly  typed  language,  an  efficient 
compiler  should  te  atle  to  detect  a  majority  of  errors  at 
compile  time,  therety  saving  development  time.  The  JANUS/Ada 
compiler  does  so  and  even  ""orrected  certain  syntax  errors 
itself,  prcducing  a  working  program.  While  it  is,  in  general, 
difficult  to  produce  simple  yet  completely  explanatory  error 
messages,  the  JANUS/Ada  compiler  does  a  noteworthy  jot. 

[Ref.  6],  provided  with  the  JAMUS/Ada  system,  was  more 
than  adequate  overall.  It  was  not  sufficient  (and  admitted 
so;  to  teach  the  JANUS/Ada  language,  tut  its  maauals  and 
appendices  on  the  compiler,  the  assembler,  the  linker,  etc. 
were  first  rate.  Its  description  of  litrary  packages  was  also 
very  helpful.  [Ref.  7]  provided  all  the  necessary  informa- 
tion to  tegin  learning  AEA  in  a  very  practical  and  concise 
manner  . 


25 


VI  .   T^E  II^Piyr^rNTATICN 

A.   ^^ETHODCLOC-y 

This  author's  i'^experience  with  the  hardware,  the 
prO(£;rarrr,in(S  lan,2;ua|g;e ,  and.  software  devel  oprrent  of  this 
nature  (systems  programiring )  and  this  scope  (larger  by  far 
then  anything  attempted  tefore),  necessitated  comDlete 
decomposition  and  modularization  of  the  protlem.  The  prin- 
ciple of  top-down  programming  was  used  as  the  prollem  was 
trcken  into  smaller  and  smaller  functional  elements  until  the 
most  tasic  functions  were  identified.  Such  functions  as  "basic 
input  and  output,  opening  and  '^losing  files,  and  interfacing 
assembly  language  with  JANUS/Ada  were  coded  and  tested. 
These  functional  entities  were  combined  in  a  building  block 
manner,  until  larger  and  more  complex  functions  such  as 
character  transfer  and  file  transfer  between  two  Z-100  were 
completed.  Eventually,  interface  with  the  concentrator  was 
achieved  as  the  system  began  to  take  shape.  The  system  was 
finished  when  the  highest  levels  of  the  program  hierarchy 
were  finally  completed  and  all  the  decomposed  modules  of  the 
problem  were  coded,  tested,  and  linked. 

E.   SYSTEMS  DESIGN 

The   problem   of   designing   a  star  cluster   local   area 
network  may  be  decomposed  into  two  parts: 

1.  Programming  the  Concentrator. 

2.  Programming  the  Z-100. 
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1 .   The  Concentrator 

The  role  of  the  concentrator  is  to  process  network 
corrn-ands  from  the  Z-102s,  estatlish  and  maintain  data  corr.- 
rruricaticn  connections,  and  route  conrnanls  and  data  tetween 
Z-l?2s.  The  network  principle  of  'circuit  switchin,^'  is 
implemented  to  route  the  commands  and  data.  The  Concentrator 
estatlishes  and  maintains  data  communication  connections 
tetween  the  source  and  destination  Z-100(s)  until  the  entire 
user  process   or  'circuit'  is  completed. 

Within  the  Concentrator  the  prctlem  may  le  further 
decomposed  into  two  parts.  The  Concentrator  must  poll  all 
the  ports  in  the  network  upon  initiation  and  after  each 
connection  is  terminated,  to  determine  if  any  Z-1Z0S  are 
ready  to  participate  in  the  network,  and  it  must  establish 
and  maintain  data  communication  connections. 

Currently  the  Concentrator  is  equipped  with  three 
6538  ELC  eTpansion  hoards  for  a  total  of  ?A  available  ports. 
Network  expansion  can  be  accomplished  by  adding  more  expan- 
sion boards  and  changing  the  value  of  the  constants  'machro' 
and  'boardno'  accordingly. 

The  Concentrator  polls  each  port  looking  for  the 
'active'  signal  from  a  Z-100.  If  there  is  no  response 
after  a  finite  period  of  time,  the  Concentrator  moves  on  to 
the  next  port.  If  the  'active'  signal  is  received,  the 
Concentrator  stops  and  determines  if  there  are  processes 
waiting   for   this  Z-100  from  other  Z-100S.   If  there  are   no 
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processes  waitin,^,  the  Concentrator  decodes  the  subsequent 
command  information  frorr  the  polled  Z-100,  and  establishes 
the  data  corrmunication  connection  for  the  requested  process. 

If  there  are  processes  waiting  for  the  Z-100  telng 
polled,  the  Corcentrator  decodes  the  first  process  in  line, 
contacts  the  sender  of  that  waitin,^  process,  and  establishes 
a  data  c  crr;rrunicat  ion  connection  for  the  transferral  of  the 
waiting  process.  Upon  transfer  of  the  first  waiting 
process,  or  if  the  sender  is  no  longer  active,  the  waiting 
process  is  destroyed  and  the  Concentrator  returns  to  the 
polled  Z-100  in  order  to  decode  the  subsequent  command  infor- 
mation, and  establish  the  data  communication  connection 
for  the  original  requested  process. 

The  Concentrator  will  satisfy  at  most  one  waiting 
process  per  polling  cycle;  a  polling  cycle  is  one  loop  around 
the  network  of  twenty  four  ports.  If  there  is  more  than  one 
process  waiting  in  the  queue  for  a  particular  Z-100,  the  one 
which  is  first  in  the  queue  (first  come,  first  served)  is 
serviced  during  one  polling  r^ycle.  The  next  queue  element  is 
serviced  during  the  next  pclling  cycle  and  so  on  until  there 
are  no  more  waiting  processes. 

There  are  two  methods  of  transferring  commands  and 
data  in  this  design: 

1.  Direct  Z-100  -  to  -  Z-100. 

2.  Broadcast  to  all  active  Z-100S  in  the  network. 
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The  Z-100  transrrits  to  the  Concentrator  the  transfer- 
ring rrethcd  and  the  Concentrator  uses  that  method  for  all 
file,  rressa^e,  or  directory  transferral. 

Once  a  data  corrirrunicat  ion  connection  is  estatlished, 
the  Concentrator  acts  as  a  transparent  pathway,  transferrins 
corrrriands  and  deta  without  regard,  and  looking  only  for  a 
sequence  of  four  end  of  process  codes  (ZFlh)  from  the  desti- 
nation Z-100(5).  Receiving  this  sequence,  the  Concentrator 
terrrinates  the  connection  and  resuries  polling  where  it  left 
off.  The  Concentrator  polls  in  an  endless  loop,  stepping 
only  to  process  requests  from  the  ports  of  the  network. 

For  single  transf errals ,  error  checking  is  performed 
hy  the  sending  and  receiving  terminals.  7or  troadcast 
transf errals ,  the  Concentrator  performs  the  error  checking 
tetween  itself  and  the  receiving  terminals  while  the  sender 
performs  error  checking  between  itself  and  the  Concentrator. 

If  a  data  communication  connection  cannot  te 
established,  the  record  data  structure  'connection' 
containing  fields  for  source,  destination,  and  process  is 
queued  in  a  FIFO  queue  implemented  as  an  array  of  records. 
The  queue  is  limited  to  one  process  per  source  Z-100  per 
destination  2-100  and  is  limited  to  message  and  file 
processes.  It  is  this  queue  that  the  Concentrator  checks 
after  receiving  the  'active'  signal  from  any  Z-ie0  during  the 
polling  process. 


2.   The  Z-100 

The  role  of  the  Z-100  is  to  communicate  with  the  user 
ani  the  Concentrator  for  the  purposes  of  processing  network 
application  prograrrs.  Commands  are  transmitted  from  the  user 
to  the  Cc-centrator ,  enatlin^  the  estatl ishmen t  of  the  proper 
data  communication  connection.  Then  the  source  Z-100 
transmits  commands  and  data  to  the  destination  Z-100(sK 

The  network  applications  consist  of  three  Z-100  to 
Z-100  functions;  file  transfer,  message  transfer,  and  direc- 
tory transfer,  and  one  Z-100  to  Concentrator  function;  net 
status.  'within  each  Z-100  to  Z-100  function  is  a  sending 
process  and  a  recei\'ing  process.  It  is  these  processes  that 
serve  as  the  network  unit  of  execution.  The  source  Z-100 
initiates  a  process,  the  Concentrator  estahlishes  a 
connection  with  the  destination  Z-100(s),  and  maintains  the 
connection  until  the  process  is  finished.  Then  the  next 
process  is  initiated  and  so  on. 

Both   the   Z-100  and  the  Concentrator  use  the   record 

data   structure  'connection'  to  establish  data   communication 

connections.    'Connection'  contains  three  fields;   'source', 

'destination',  and  'process'. 

TYPE  conctn  IS 
RECORD 

source:  tyte; 
destination:  tyte; 
process:  tyte; 

ENT  rfcore; 


30 


The  source  Z-100  creates  the  conr.ection  record  and 
transmits  it  to  the  Concentrator  where  it  is  decoded  and  the 
proper  pathway  is  established.  Vben  the  destination  Z-100(s) 
acknowledge  the  connection,  comrunicat ion  hegins.  If  the 
connection  can  not  he  established,  the  connection  record  is 
stored  ty  the  Concentrator  in  the  queue.  Upon  completion  of 
the  process,  the  connection  record  in  the  Concentrator  and 
the  Z-iee  is  destroyed. 

The  Z-100  network  application  programs  are  menu 
driven  and  implemented  in  an  infinite  loop.  The  Z-100 
transmits  an  'active'  signal  to  the  Concentrator  and  waits 
to  he  polled  by  the  Concentrator.  When  polled  the  user  is 
told  if  there  is  a  process  waiting  for  him/her  and  is 
requested  to  receive  that  process.  Then  the  user  selects  a 
process  from  the  menu  and  the  Z-100  and  the  Concentrator 
carry  out  that  process  as  described  above.  After  process 
completion,  control  is  returned  to  the  infinite  loop  which 
transmits  an  'active'  signal  again,  waits  to  be  polled,  asks 
for  user  input,  and  so  on  until  the  user  terminates  the  loop 
with  "control  x". 

3 .   Command  and  Data  Communication 

A  main  concern  of  this  thesis  is  efficient  data 
comm.unications .  Fast,  error  free  transmission  of  commands 
and  data  along  the  data  ccmmunication  connection  for  both 
point  to  point  and  broadcast,  is  achieved  by  an  immediate 
e'^ho   method   implemented   in  JAKUS/Assembler   language   for 
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CP/M-66.  The  rrethod  uses  the  fact  that  instruction  executior 
tip-e  is  rr;uch  shorter  than  data  transmission  time  and  attempts 
to  irinimize  wait  times  as  much  as  possible.  All  bytes 
received  by  any  procedure  are  immediately  echoed  and  the 
received  echoes  are  then  checked  for  error. 

The  sending  procedure  transmits  a  byte  and  then  waits 
for  an  echo  from  the  receiver.  It  compares  the  echo  with  the 
transmitted  byte.  If  an  error  is  detected,  the  sending 
procedure,  depending  on  its  function,  either  retransmits 
immediately  or  transmits  an  error  code  followed  by  the  re- 
transmitted byte.  (For  the  broadcast  method  the  byte  is 
transmitted  to  all  destination  Z-l?0s  before  the  echoes  are 
received  and  compared.) 

The  receiving  procedure  receives  a  byte  and  then 
immediately  echoes  it  before  proceeding  to  process  the 
received  byte.  If  an  error  code  is  received  when  it  returns 
to  receive  the  next  byte,  the  receiver  erases  the  byte  in 
error  and  returns  to  receive  the  retransmitted  byte. 

The  method  is  sufficiently  general  in  design  to 
handle  more  difficult  errors  than  just  errors  in  data  bytes 
transmitted  from  the  sender  to  the  receiver.  For  instance, 
the  method  will  detect  and  correct  errors  in  the  echo 
transmitted  back  to  the  sender.  This  is  a  particularly 
insidious  error  because  the  receiver  actually  received  the 
correct  data  byte,  but  the  sender  doesn't  think  so  and  sends 
out   an  error  code  or  retransmits  the  data  byte.    The  method 
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will  also  correct  mltiple  errors  such  as  when  a  data  hyte  is 
transrritted  in  error  and  so  is  the  sutsequent  error  code. 
The  sender  will  stay  with  the  error  until  it  is  corrected  to 
its  satisfaction  and  the  receiver  will  always  k:ncw  how  many 
received  data  hytes  are  in  error  and  hew  rrany  to  erase.  This 
is  true  even  when  a  procedure  is  both  a  sender  and  a  receiver 
as  in  the  procedure  'Setup'.  Additionally,  every  receiving 
procedure  has  a  finite  waiting  period  to  ensure  the  final 
tyte  and  echo  are  received  properly. 
4.   resi|g;n  Considerations 

a.   Asserrtly  Language 

JANUS/Asserrtler  cortined  with  CF/M-66  BDOS  fun- 
ction calls  was  used  for  all  J/C  sutroutines  except  for  the 
display  of  non-conditional  strings  to  the  user.  This  was 
decided  lecause  of  the  need  for  speed,  efficiency,  and  inple- 
rrentaticn  of  the  data  c  crrmunicati  on  connection.  "Because  of 
an  undiscovered  hug  in  JANUS/Ada,  use  of  CP/f^-86  function 
calls  invalidated  the  perfectly  adequate  huilt  in  JANUS/Ada 
file  operation  routines.  Thus  these  functions  too  were 
irrplerrented  in  JANUS/Asserrhler  with  CF/M-66  BDOS  function 
calls. 

t.   Memory  Management 

The  Concentrator  proe'rams  are  estimated  to  occupy 
25K  of  the  64K  hytes  of  memory  in  the  Concentrator.  Due  to 
the  limited  size  of  the  queue  for  waiting  processes,  and  to 
the   use   of   message  switching  as  the  principle   of   network 


communication,   circuit   iran^gerent  was  deemed  not   necessary 
and  was  not  implemented. 

c.   Process  Coordination 

The  network  processes  do  not  use  interrupts  for 
coordination.  Processes  execute  sequentially  until  communi- 
cation is  required.  This  communication  is  designed  such  that 
when,  say,  a  sender  is  waiting  to  transmit  specific  commands 
or  data,  the  receiver  will  eventually  'rendezvous'  (although 
not  in  the  concurrent  sense)  and  the  proper  receiving  pro- 
cedure will  receive  and  process  the  transmitted  commands  or 
data.  When  necessary,  such  as  when  polling  ports,  processes 
will  wait  a  finite  period  of  time  and  then  move  on.  Occas- 
sicnally,  a  process  will  stop  until  the  receiver  tells  it  to 
continue.  Blocks  of  data  are  identified  hy  end  of  hlock 
codes  (0FFh),  and  codes  are  transmitted  to  tell  the  receiver 
whether  or  not  this  was  the  last  tlock.  Special  care  was 
exercised  in  the  implementation  to  ensure  that  deadlock  did 
not  occur  ie:  toth  processes  expecting  to  receive  or  to 
transmi  t . 

The  Concentrator,  which  is  "both  a  receiver  and  a 
sender,  employs  the  same  design  principles  when  polling 
ports,  checking  or  updating  queues,  and  estatlishing  data 
communication  connections.  Once  a  connection  is  established, 
it  treats  everything  as  a  tlock  of  data,  moving  on  only  when 
a  sequence  of  four  end  of  process  codes  (0Flh)  from  the 
destination  Z-12'0(s)  is  received. 
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d.   The  Tata  Type  Byte 

Use  of  the  JANUS/Ada  predefined  data  type  Eyte, 
which  is  not  AEA  standard,  was  necessitated  ty  the  r.etwcrlc 
requirerrent  to  transmit  all  ei^ht  bits  of  each  data  tyte  and 
the  rrethod  used  to  transmit  and  receive  commands  and  data. 
The  data  type  Character  with  only  seven  bits,  and  the  data 
type  Integer,  which  is  not  well  suited  for  the  manipulations 
needed  for  transmission,  were  not  sufficient  to  represent  the 
data  byte  used  in  command  and  data  communication  in  this 
implementation. 

C.   SYSTEM  EXECUTION 

The   irrplemented  networlc  application   prCf^rems   are   menu 

and  command  driven.   At  program  start  and  after  each  process, 

the   'active'   signal  is  transmitted  to  the  Conceatrator   and 

the  program  waits  to  be  polled.    When  polled  the  program   is 

informed   if  there  are  processes  waiting  for  this  Z-100.    If 

there   are  processes  waiting,   the  user  is  aslced   to   receive 

them.  Then  the  user  is  presented  with  the  following  menu: 

CTRL_S  =  SEND  EILE 

CTRL_R  =  RECEIVE  FILE 

CTRL  T  =  SEND  MESSAGE  (TALK) 

CTRL_L  =  RECEIVE  MESSAGE]  (LISTEN) 

CTRL_F  =  SEND  DIRECTORY 

CTRL_G  =  RECEIVE  DIRECTORY 

CTRL_W  =  GET  NET  STATUS  (VvFO) 

CTRL  B  =  RECEIVE  BULLETIN  BOARD 

OTHERS  =  RECHECK  FOR  INCOMING  FILE  OR  MESSAGE 

The  user  makes   his  or  her  selection  and  is  placed   in   the 

appropriate   environment.    Upon  completion  of  each  process. 


the  user  can  press  any  key  and  te  returned  to  the  maia  menu 
or  pause  indefinitely.  Upon  return  to  the  main  me':'u,  the  user 
is  ^iven  the  option  of  exittin^  using  "CTRL_X"  or   continuing 

"any  key". 

To  send  a  file,   the  user  is  prorrpted  for  the  disk  drive, 

file  name,   and  file  type  of  the  file  he  wishes  to  send.   The 

user's   input   is  displayed  as  he  types  and   invalid   entries 

(those   characters  not  permitted  in  file  names  and  file  types 

ty   CP/I^-ee)   are  fla^s^^ed.    A  sample  entry  might   loolr   like 

this  : 

?N.FT;  myfil?  INVALIE  FNTRY 
myf il_ 

Cnce   entered  the  file  name  and  type  are   capitalized   in 

accordance  with   CP/M-8e   format  and  the   user's   choice   is 

displayed  for  confirmation: 

C:  MYFILE.TXT  IS  SELECTED.  PRESS  RETURN  TO  CONEIRM, 
ANY  OTHER  KEY  TO  RESELECT. 

Upon  confirmation,  the  user  is  prompted  for  the  destina- 
tion terminal  (or  hroadcast)  and  the  source  terminal.  Then  a 
search  is  made  for  the  file.  If  it  can  not  te  found  an  error 
message  is  displayed  and  tne  user  is  given  the  opportunity  to 
reselect.  If  it  is  found  the  file  is  opened.  Then,  if  the 
destination  is  active,  the  transmission  "begins.  Otherwise,  a 
message  indicating  that  the  destination  was  inactive  is  dis- 
played and  the  user  is  returned  to  the  main  menu. 

The  file  is  sent  in  succesive  128  tyte  data  tlocks  until 
end   of  file  is  readied.    After  each  data  tlock,   the  sender 
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indicates  to  the  receiver  whetner  or  not  end  of  file  has 
occurred  and  stops  until  the  receiver  tells  the  sender  to 
continue.  Once  the  file  is  sent,  it  is  closed  and  the  user 
is  returned  to  the  main  rrenu. 

To  receive  a  file,  the  user  is  prorrpted  as  alove  for 
drive,  file  name,  and  file  type.  Upon  confirmation,  the  file 
named  ty  the  user  is  first  deleted  and  then  created.  This  is 
done  to  ensure  nc  errors  occur  during  the  create  operation 
and  has  the  effect  of  overwriting  the  file  if  the  user 
chooses  a  file  already  on  the  disk.  After  creating  the  file, 
reception  tegins. 

The  file  is  received  in  128  tyte  data  tlocks  and  after 
each  tlock  is  written  to  disk,  end  of  file  is  checked  and  the 
sender  is  told  to  continue.  Once  the  file  is  received,  it  is 
closed  and  the  user  is  informed  of  the  numter  of  hytes 
received.  Irror  messages  are  displayed  if  there  is  no  more 
disk  space  or  directory  space  on  the  receiver.  The  user  is 
then  returned  to  the  main  menu. 

To  send  a  message,  the  user  is  prompted  to  begin  typing 
and  told  that  the  maximum  message  length  is  1600  characters. 
All  characters  entered  except  "CTRI_Z"  are  sent.  The  message 
is  organized  in  a  'page'  format  of  twenty  lines  with  82 
characters  each.  A  limited  correction  capability  is 
included,  consisting  of  typing  "backspace"  or  "CTRL_E"  and 
then  retyping  the  character.  However,  the  error,  the  back- 
space or  CTRL_R,  and  the  retyped  cnaracter  all  count  as  typed 


charerters.  The  ressage  fornat  consists  of  twenty  lines  of 
82  'keystrokes'  each.  Users  nust  keep  this  in  nind  when 
typing  . 

"CTRL_Z"  stops  message  typing  and  "CTRL_S"  sends  it.  Any 
other  key  allows  the  user  to  retype  the  message.  After 
"CxRL_S",  the  user  is  prompted  for  the  source  and  destination 
(or  broadcast)  teririnals  as  atove.  If  the  destination  is 
active,  the  message  is  transmitted  as  one  data  tlock  with 
appropriate  end  of  message  codes.  The  user  is  returned  to  the 

main  menu  upon  completion  of  the  transmission. 

To  receive  a  message,  the  user  types  "CTRL_L"  from  the 
main  menu  and  reception  occurs.  The  message  is  displayed  and 
the  user  is  informed  of  end  of  ressage  and  the  number  of 
bytes  received.  The  user  is  then  returned  to  the  main  menu. 

To  send  a  directory,  the  user  is  prompted  for  the  disk 
drive  for  which  directory  he  wishes  to  send.  (Presumably  in 
response  to  a  request.)  After  confirmation,  the  user  is 
prompted  for  the  source  and  destination  (or  broadcast) 
terminals  as  above.  The  directory  of  the  selected  drive  is 
then  searched  for  the  CP/^-e6  wild  card  file  name  and  type 
(????????.???)  causing  the  entire  directory  to  be  matched. 
l^-ach  directory  entry  is  placed  in  the  transmission  data  block 
u'^til  there  are  eight  directory  entries  for  a  total  of  128 
bytes.  If  the  destination  is  active  this  data  block  is  then 
transmitted  ,  preceded  by  the  disk  drive,  with  a  code  indica- 
ting whether  or  not  end  of  directory  has  occurred.    If  there 
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are  no  files  on  the  selected  disk  a  "NO  FILES  ON  SFIECTEP 
rJ3K."  string  is  trar.srrit  ted  tc  the  receiver.  The  user  is 
returned  to  the  main  renu  \]j.on  completion  of  the 
transnissicr. 

To  receive  a  directory,  the  user  is  prompted  as  atove  for 
drive,  file  name,  and  file  type  in  which  he  wishes  to  store 
the  incoming  directory.  Upon  confirmation,  the  file  named  hy 
the  user  is  first  deleted  a^d  then  created.  This  is  done  to 
ensure  no  errors  occur  durin,^  the  create  operation  and  has 
the  effect  of  overwriting  the  file  if  the  user  chooses  a  file 
already  on  the  dis>.  After  creating  the  file,  reception 
tegins. 

The  drive  of  the  directory  is  received  first  and  tl-en  the 
first  12S  tyte  data  hloctc.  After  checking  for  end  of 
directory,  the  eignt  directory  entries  of  the  data  tloclt  are 
displayed  and  the  user  is  asked  if  he  wishes  to  save  them  on 
file.  lach  data  tlock  is  received  the  same  way.  Those  data 
blocks  the  user  wishes  to  save  are  written  to  disk  and  the 
rest  are  discarded.  Error  messages  are  displayed  if  there  is 
no  more  disk  space  or  directory  space  on  the  receiver.  V/hen 
end  of  directory  is  reached  the  reception  is  ceased,  the  file 
closed,  and  the  user  returned  to  the  main  menu.  The  file 
created  during  this  operation  should  te  edited  ty  the  user 
as  it  may  contain  characters  from  each  directory  entry  that 
are  not  printatle. 
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To  cttain  a  current  net  status  cf  the  active  terrrinals  in 
the  network,  the  user  is  prorrpted  for  the  source  and  desti- 
nation terminals  as  atove  with  the  exception  that  he  must 
enter  his  terrriral  for  loth  source  and  destination.  Upon 
confirmation,  a  list  ly  numter  cf  all  active  terminals  is 
displayed  and  the  user  is  returned  to  the  main  menu. 

Messages  are  sent  the  hulletin  toard,  if  it  is  active,  "by 
selectirg  machine  #24  when  prompted.  The  tulletin  hoard  is 
'read'  ty  selecting  CTP.L_B  at  the  main  menu.  If  the  bulletin 
toard  is  active,  all  the  current  messages  are  transmitted,  in 
128  tyte  "blocks,  and  stored  in  e  user  specified  file,  chosen 
in  the  sane  manner  as  the  receiving  of  file  transfers.  This 
file  can  then  "be  perused  at  leisure.  The  tulletin  toard  can 
hold  up  to  twenty  messages  of  1600  tytes  each.  The  twenty- 
first  message  replaces  the  first  message  and  so  on. 
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VII.   CONCLUSIONS 

The  research  objectives  of  this  thesis;  coding  in 
JANUS/Ada,  allowing  single  or  multiple  transfers  of  files, 
messages,  and  directories,  and  sharing  of  local  resources  in 
a  laboratory  environment,  were  satisfactorily  ccrnpleted. 
However,  the  complete  testing  and  demonstration  of  the  net- 
work in  operation  was  not  achieved. 

The  utilities  resident  in  the  Z-100  workstations  were 
completely  end  satisfactorily  tested.  So  too  were  the  estab- 
lishment of  data  communications  connections  and  data  transfer 
through  the  concentrator  of  files,  messages,  and  directorys 
from  a  single  Z-100  to  another  single  Z-100  and  to  multiple 
(two)  Z-100S.  The  polling  mechanism  in  the  concentrator, 
obtaining  net  status,  and  the  storing  of  messages  in  and 
retrieval  from  the  bulletin  board  were  also  satisfactorily 
tested . 

Remaining  to  be  tested  are:  the  mechanism  for  the  storing 
of  processes  for  which  a  connection  could  not  be  established 
and  the  mechanism  for  placing  and  servicing  the  waiting 
processes  in  the  queue.  Finally,  the  testing  of  the  entire 
system  of  23  Z-100  workstations  and  one  Bulletin  board  under 
all  conditions  and  loads  awaits  demonstration. 

In  sum,  each  module  and  subroutine  was  separately 
compiled  and  tested,   functional  integration  of  parts  of  the 
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system  were  tested  and  satisfactorily  denronstrated  ,  but  the 
corrplete  integration  of  the  entire  network  was  not 
accorplished . 

To  achieve  final  systerr  integration  and  completion  of  the 
networ'i^,  it  is  recommended  that  a  two  step  testing  process  te 
conducted.  First,  set  up,  under  latcratory  conditions,  a 
small  network  consisting  cf  seven  Z-100  workstations  and  a 
bulletin  heard  using  one  full  8538  expansion  hoard.  In  this 
set  up,  fully  test  the  package  'Poll'  in  various  experimental 
situations  tc  ensure  that  it  handles  all  circumstances  as 
designed  ard  that  the  queue  o-cerations  function  properly. 
Second,  establish  the  full  network  and  test  it  in  an 
operational  environment  under  all  conditions  of  load  and 
function. 

The  experience  of  coding  this  thesis  was  very  challenging 
and  stimulating.  Despite  ny  very  limited  programming  back- 
ground in  Pascal,  I  was  able  to  quickly  grasp  the  funda- 
mentals of  Janus/Ada  and  begin  coding  small  test  procedures. 
As  the  requirements  for  the  project  became  clearer,  coding 
intensified  ard  increased  in  size  and  scope. 

However,  I  found  myself  habitually  using  Pascal  or 
Pascal-like  structures.  I  was  tapping  very  little  of  the 
power  and  richness  of  Janus/Ada.   For  instance,  I  would  use 
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IF  condition  THEN 

IX  it; 
INE  if; 

rather  than 

FXIT  WHIN  rendition; 

tc   ejit   loops.    Features   such   as   attributes,   subtypes, 

derived   types,   and   ranges   were  used  very   little   in   the 

teginni'^s.   Additionally,  the  nature  of  the  project  precluded 

working  with  real  or  fixed  point  types  and  all  their  features 

plus  many  cf  the  tuilt  in  or  provided  library  subroutines. 

It  was  in  the  use  of  the  LOOP  statement  that  I  began  to 
explore  the  full  power  of  Janus/Ada  over  Pascal.  I  quickly 
learned  to  tailor  the  loop  staterrent  to  achieve  ?ny  effect  I 
desired  and  found  it  extremely  useful  in  structuring  my 
programs.  Gradually,  in  this  and  other  structures,  I  began 
to  use  Janus/Ada  more  elegantly  and  to  remove  'Pascal'  from 
my  coding,  although  some  always  remained. 

Surprisingly,  the  grouping  of  programs,  subroutines,  and 
data  into  packages  and  the  linking  together  of  these  packages 
into  a  single  program  proved  very  easy  to  assimilate.  The 
understanding  and  use  of  the  scope  and  visibility  rules, 
however,  was  harder  to  grasp.  As  a  result,  the  use  of 
selected  components  for  naming  variables  in  one  package  while 
in  another  package,  or  the  use  of  private  types  were  rot 
implemented . 

The  first  real  problems  occurred  in  the  use  of  input  and 
output,   usually   the  hardest  part   of   any   language.   For 
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reasons  previously  explai'^ed,  assemtly  lan^-ude^e  sutrcutines 
interfered  with  Janus/Ada  prograrrs  were  used  for  virtually 
all  input  and  output.  My  previous  asserrbl^'  language 
experience  was  with  QTfST)  rrnerrcnics,  "but  the  use  of  60&6 
mnerrcnics  was  easy  to  learn  tecause  I  was  required  to  use 
only  those  instructions  that  had  counterparts  in  8082)  and  I 
oaly  had  to  learn  the  new  register  and  addressing  schemes. 
However,  the  interface  with  Janus/Ada  proved  extrenely  diffi- 
cult to  naster.  It  took  much  trial  and  error  to  realize 
exactly  hew  the  parameters  were  passed  and  returned  froir  the 
assernhly  language  sutroutire  and  how  the  stack  was  manipu- 
lated when  the  subroutine  was  called. 

Lastly,  the  requirements  of  data  communication  were  the 
hardest  to  implement.  The  idea  of  two  programs  executing  on 
two  different  machines  and  communicating  with  each  other  was 
entirely  new.  The  errors  that  resulted  were  difficult  to 
diagnose  and  correct.  In  my  previous  experience,  programs 
very  rarely  encountered  infinite  loops?  either  they  didr't 
work  correctly  or  they  produced  wrong  answers,  hut  they 
always  finished.  In  data  'communication,  infinite  loops  were 
frequent  as  the  programs  deadlocked  waiting  for  the  other  to 
stop  or  start  communicating.  The  synchronization  of  proce- 
dures and  routines  in  programs  executir:g  in  parallel,  so  that 
procedures  that  needed  to  communicate  would  'meet'  at  the 
right  place  and  the  right  time,  was  the  most  difficult  aspect 
of  coding  this  thesis. 
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This  thesis  derrcnstrated  the  following  capati  1  it  ies . 
First,  the  alility  of  JANUS^Ada,  and  ty  extension,  ADA,  to 
effectively  ard  efficiently  perform  corplex  data  ccrrmurica- 
tion  end  network  functions.  Second,  the  viatility  of 
rli:sterinp:  nic  roc  orrputers  for  the  sharing  of  resources  and 
the  enhancement  of  data  com:nicati ons  and  transfer.  Finally, 
the  atility  of  an  inexperienced  progremrrer  to  learn  ADA  and 
use  it  in  the  solving  of  complex  computer  problems. 


APFE-MDIX    A 
USFR'S   f^A.MUAL 


A.   GITTING  STARTED 

The  syster  is  desii?r.ed  tc  operate  on  the  Zenith  rrodel  120 
nirroc  orrputer  connected  to  the  concentrator  in  the  NFS  micro- 
corrputer  lat.  The  file  Xf errrain  .end  should  te  on  the  hard 
disk   and    the   CF/M-c5    operating    systen   should   te   selected. 


the  user   in 


the 


B.   SYSTEMS  OPERATION 

The   corrmand   'xfermain'   will  place 
network.   The  first  message  should  he: 

'WAITING  TO  FE  FOILED. ' 

Note:  S:^'Stem  messages  are  always  in  uppercase. 
This  rreans  that  this  Z-100  is  waiting  to  te  recognized  ty  the 
network.  A  wait  of  some  time  may  result  if  the  system  is 
tusy.  If  the  wait  tecomes  excessive,  see  the  system's  main- 
tenance personnel.  When  recognized,  the  next  message  should 
te: 

'CHECKING  EOF  INCOf^ING  FILE  OR  MESSAGE.' 


If  there  is  en  incoming  file  or  message, 
asked  to  receive  it  prior  to  continuing 
request . 

After  the  i^^coming  data  has  teen  received  or 
ro  data,  the  following  menu  will  te  displayed: 


CTRL_S  =  SEND  FILE 
CTRL_H  =  RECEIVE  FILE 
CTRL_T  =  SEND  MESSAGE  (TALK) 
CTRL_L  -  RECEIVE  MiSSAGI  (LISTEN) 
CTRL  P  -  SEND  DIRECTORY 
CTRLlG  =  RECEIVE  DIRECTORY 
CTPL_W  =  GET  NET  STATUS  (WHO) 
CTRL_E  =  RECEIVE  BULLETIN  BOARD 
OTHERS  =  RECHECK  FOR  INCOMING  FILE 


the  user  will   te 
with  the  user's 


if  there   is 


OR  MESSAGE 


Selecting  the  proper  entry  will  place  the  user 
envi  ronmen t . 


in  the  desired 
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C.   RFCFIVEFILE 


Once  in  P.eceivef ile,  thp  command  messages  are  self  expla- 
The   program  prompts  for  a  file  name  and  file   t>pe 


na tory  . 

for  the  incoming  data.  It  forces  the  input  of  a  CF/M-ee 
acceptable  file  name  and  file  tjpe,  hut  the  user  must  ensure 
that  sufficie'-t  space  exists  for  the  file  on  the  selected 
disk.  An  error  message  will  result  otherwise.  Some  delay 
nay  occur  in  the  receiving  of  a  file  if  the  file  is  verj 
large  or  the  network  is  very  busy.  Excessive  delay  should  be 
referred  to  the  systems  maintenance  personnel. 
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LISTENING 

Once   in  Listening, 
displayed  as  typed. 


the  message  is  received   immediately 
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WHCS. 
Orxce 


THERE 


in  Aho5_there,  the  user 
machire  numter  as  the  destination. 
received  . 


is    prorrptei    to   enter      his 
Then    the    net    status      is 


H.      H5:CIIVI_!3IR 

Once  in  Receive_dir,  the  ccnmand  rressages  are  self  expla- 
ratory.  The  program  prompts  for  a  file  name  and  file  type 
for  the  incoming  data.  It  forces  the  input  of  a  CF/M-66 
acceptatle  file  name  and  file  type,  tut  the  user  must  ensure 
that  sufficient  space  etists  for  the  file  on  the  selected 
disk.   An  error  messa,R;e  will  resnlt  otherwise.   The  user  may 

save  only  those  directory  entries  he  desires.  Some  delay 
may  occur  in  the  receiving  of  a  directory  if  the  directory  is 
very  large  or  the  network  is  very  "busj^.  Excessive  delay 
should  be  referred  to  the  systems  maintenance  personnel. 

I.   PRESrN'T_EIR 

Cnce  in  Fresent_dir,  the  command  messages  are  self 
eyplanatory.  The  user  is  prompted  to  select  the  destination 
ma'^hine  (numbered  01  through  23)  or  broadcast  to  all  (number 
^?).  If  the  requested  destination  is  not  presently  in  the 
network,  the  request  to  send  a  directory  will  not  be  queued 
and   is  destroyed.   Some  delay  may  occur  in  the  sending  of   a 

direi'tory  if  the  directory  is  very  large  or  the  network  is 
very  busy.  Excessive  delay  should  be  referred  to  the  systems 
maintenance  personnel. 


J.   PUILBRL 

O'nce  in  Bullbrd,  the  commana  messages  are  self  explana- 
tory. The  program  prompts  for  a  file  name  and  file  type  for 
the  incoming  data.  It  forces  the  input  of  a  Cr/M-S6 
acceptable  file  name  and  file  type,  but  the  user  must  ensure 
that  sufficient  space  exists  for  the  file  on  the  selected 
disk.  An  error  message  will  result  otherwise.  Some  delay 
may  occur  in  the  receiving  of  messages  from  the  bulletin 
board  if  the  number  of  messages  is  very  large  or  the  network 
is  very  busy.  Excessive  delay  should  be  referred  to  the 
systems  maintenance  personnel. 
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K.   FUHTHIR  ACTION 

When  completing  any  one  of  the  atove  task:s,  the  user  is 
returned  to  the  rrain  rrenu  where  he  ray  exit  using  'control  x' 
or  continue  for  rore  tasks.  If  the  user  chooses  to  continue 
the  prOftTar  returns  to  the  te^iring,  waits  to  te  recognized 
again,  and  so  on. 


L.   VHEN  SEF.OES  OCCUR 

The  syster  is  designed  to  flag  most  errors  and  allow  user 
correction  without  halting  execution,  however  should  errors 
occur  which  halt  the  prcgram  during  data  communication,  then 
the  system  will  have  to  te  reset.  Otherwise,  reseting  the 
us^r  terminal  will  allow  the  user  to  rejoin  the  network. 
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APPENDIX      ? 
MAINTENAMCE    MANUAL    ?0R    Z-100    FROaRAMS 


A.      XFEFr^AIN 

1.    CONFIGURATION 

p.    language   -   JANUS/Ada 
I.    Ccrrpiler    Version    -   1.47 

c.  linker   Version   -    1.47 

d.  Tar^-et    Hardware   -   Zenith    Z 

e.  Operating    Systerr    -   CP/M-86 

f.  Faclrage    description: 

The  Xferrrain  package  is  the  m 
workstations.  It  hef--;in5  ty  inforni 
this  particular  terminal  is  active  a 
mine  if  the  network  has  any  files  or 
Xfermain  then  presents  the  user  w 
options:  send/receive  files, 
send/receive  directory,  and  obtain 
code  keystrokes  then  piece  the  user 
rrent.  Xfermain  contains  an  infinit 
the  above  functions  until  the  user 
with  control  x.  Upon  termination 
Corcertrator  it  is  no  lonj-^er  active. 


-102  microcomputer 
( version  1 .14) 


ain  progra 

ng  the  Con 

nd  then  wa 

messages 

ith  a   men 

send/rece 

networK  s 

in  the  de 

e  loop  tha 

terminates 

,   Xfermai 


m  t  or 
centra 
iting 
wait  in 
u   of 
ive 

tat'is  . 
sired 
t  will 

the 
n   inf 


the  Z 
tor 
to  de 
g  for 

sele 

me  ssa 

Con 

e  n  V  i 

per 
ses 

orms 


-100 
that 
ter- 

it . 
c  ted 
ges, 
trol 
ron- 
f  orm 
si  on 

the 


SUBRCUTINFS 
a.  Contained: 


None. 


I.    Called: 
Active 
^waiting 
Outconsole 
Keyin 
Sendf ile 
Receivefile 
Talking 
listening 
V/hos_  there 
Receive_dir 
Present  dir 
Recv_turietin 
Clearscrn 
Off 


3.  CC^fENTS 

Xfermain  is  placed  on  all  terminals  of  the  network, 
except  #24,  the  Bulletin  board,  and  is  invoked  by  typing  the 
command  "xfermain". 
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B.      XFIRFILE 

1.  CONFIGURATION 

a.  Language  -  JANUS/Ada 
I.    Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcorriputer 

e.  Operating  System  -  CF/M-Se  (version  1.14) 

f.  Package  description: 

The  Xferfile  package  controls  the  sending  and 
receiving  of  files  from  the  Z-100  workstations.  The  user  is 
prompted  for  the  disk  drive  and  file  name  to  send  or  receive. 
The  package  parses  and  capitalizes  the  input  into  eight 
character  filenames  and  three  character  file  types,  in  order 
to  conform  with  the  requirements  of  CP/M-96.  When  the  input 
has  teen  confirmed  by  the  user,  Xferfile  either  opens  er 
existing  file  or  creates  a  new  one  using  the  file  control 
blocks  (FCBs)  described  in  Chapter  IV.  Files  are  read  and 
sent  or  received  and  written  in  12P  byte  blocks.  The  sending 
and  receiving  processes  coordinate  with  each  other  and 
mutually  come  to  a  halt  when  the  processes  are  finished. 
Xferfile  returns  to  Xfermain  after  each  instance  of  file 
transfer. 

2.  SUBROUTINES 
a.  Sendfile 

(1)  Type;  Procedure 

(2)  Purpose:  To  send  a  file  from  one  terminal  to 
another  terminal  or  to  all  active  terminals  in  the  network. 

(3)  Description  of  Parameters:  None 

(4)  Subroutines  Called: 
Clearscrn 
Reset_disk 
Drive_select 
Parse_cap 
Outconsole 

Keyin 

Open  file 

Set_5MA 

Fnter_machine 

Set_up 

Read_seq 

Yes 

No 

Send_block 

Close_file 

(5)  Process  Description: 

Sendfile  controls  the  sending  of  data  from  a  file 
to  the  receiving  terminal(s).  The  user  specifies  the  disk, 
the  file  name,  and  the  file  type  and  Send_file  creates  a  file 
control  block  (FCB)  Then  the  user  specifies  the  destination 
terminal(s)  and  a  connection  is  established.  The  file  speci- 
fied by  the  FCB  is  opened  by  utilyzing  CP/r^-86  function   call 
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#15  and  data  is  read  frorr  the  file  into  a  data  structure 
located  at  the  specified  direct  rremory  address  (DMA)  in 
sequential  128  byte  records  by  utilizing  CP/M-86  function 
call  #20.  Sendfile  tells  the  user  if  either  an  inappropriate 
file  narre  or  type  is  used,  if  the  file  specified  is  already 
open,  or  if  the  specified  file  cannot  be  found  on  the  speci- 
fied disk.  If  the  receiver  is  active,  the  data  structure 
containing  the  128  byte  record  is  then  transrr.i  tted .  Sendfile 
checks  after  each  sequential  read  to  determine  if  end  of  file 
has  been  reached  and  sends  a  yes  or  a  no  code  accordingly. 
After  the  transmission  has  been  completed,  the  file  is 
closed . 


of  Parameters:  N 
Called: 


t.  Receivefile 

(1)  Type:  Procedure 

(2)  Purpose:   Tc   receive  and  s 
sending  terminal. 

(3)  Description 

(4)  Subroutines 
C learscrn 
Reset_disk 
Drive_select 
Parse^cap 
Outconsole 
Keyin 

Delete_f ile 
Create_file 
Set  DMA 
Endfile 
Write_seq 
Recv_blocl5: 
Close  file 
Put  str 
Put^int 

(5)  Process  Description: 
Receivefile  controls   the  recep 

from  a  sending  terminal.   The  user  specif 
file   name,  and  the  file  type  to  store  th 
control  block  (FCB)  is  created.  The  file  s 
is  first  deleted  using  CP/M-e6  function  ca 
duplication   occurs  and  then  created  by 
call  #22.   128  bytes  of  data  is  received  a 
structure   located  at   the  specified  dire 
(DMA).   The  data  is  written  to  the  file  u 
#21  and  the  the  sender  is  told  to  send  the 
data.  Receivefile  checks  after  each  block 
to  determine  if  end  of  file  has  occurred, 
the  user   if   either  an  inappropriate  fil 
used,   if  directory   space  is  unavailable 
filename,   if  directory  space  is  unavailab 
of  an  existing  entry,   or  if  disk  space  i 
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reception  has  teen  completed,   the  file  is  closed   and   the 
nurrber  of  "bytes  received  is  displayed. 

c.  Parse_cap 

(1)  Type:  Procedure 

(2)  Purpose:  To  parse  the  file  nane  and  file  type 
for  invalid  characters  and  to  capitalize  toth  to  conform  to 
CP/M-86  protocol. 

(3)  Description  of  Parameters:  A  value  of  type 
fct  indicating  the  FCB  data  structure  is  one  output 
parameter.  A  value  of  type  Integer  indicating  the  file  name 
length  is  the  other  output  parameter. 

(4)  Subroutines  Called: 
Outconsole 

Keyin 

(5)  Process  Description: 

Parse_cap  controls  the  creation  of  the  user  speci- 
fied file  name  and  file  type.  The  user's  input  is  accepted 
and  displayed.  Invalid  characters  are  flagged  and  the  input 
minus  the  invalid  character  is  redisplayed  for  continued 
input.  Parse_cap  then  capitalizes  the  input  and  stores  it  in 
the  appropriate  fields  of  FCP. 


C.   MESSAGES 

1.  CONFIGURATION 

a.  language  -  JANUS/Ada 
h.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Messages  package  controls  the  sending  and 
receiving  of  messages  from  the  Z-100  workstations.  A  maximum 
message  size  of  1600  keystrokes  (including  error  correction) 
organized  in  20  lines  of  80  each  is  implemented.  The  user 
types  control  z  to  end  the  message  and  control  s  to  send  it. 
If  the  user  desires  to  retype  the  message  entering  any  char- 
acter other  than  control  s  will  erase  the  first  message. 
After  input  is  confirmed,  the  message  is  transmitted  and 
received  as  a  single  block  of  data.  The  sending  and  receiving 
processes  coordinate  with  each  other  and  mutually  come  to  a 
halt  when  the  processes  are  finished.  Messages  returns  to 
Xfermain  after  each  instance  of  ressage  transfer. 

2.  SUBROUTINES 
a.  Talking 

(1)  Type:  Procedure 

(2)  Purpose:    To  send  a  message  to  one  or  all   of 
the  terminals  currently  in  the  network. 

(3)  Description  of  Parameters:  None 
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(4)  Subroutines  Called: 
Clearscrr 
Cutronsole 

Key  in 

Inter_machine 

Setup 

Serd_"bl  ock 
yes 

(5)  Process   Description: 
Talking      controls    the    transnissi 

jceivin^   teminaKs).        The      user    is 


terrrinal 


listening 

(1)  Type:  Procedure 

(2)  Purpose:   To  receive 


a  message  from  a   sending 


(3) 
(4) 


of  Parameters: 
Called: 


(5) 


lescription 
Sutrcut ires 
Clearscrn 
Outconsole 

Keyin 

Endi^sg 

Recv_hlock 

P  u  t  _  i  n  t 

Process  Pescriptior: 


None 


listening  controls 
from  a  sending  terminal.  The 
block  of  data  and  terminated 
message  codes  is  received, 
exactly  as  the  sender  typed 
tytes  received . 


the  reception  of  message  data 
message  is  received  as  a  single 
when  a  sequence  of  four  end  of 
The  message  is   then   displayed 

it  along  with   the  numter   of 


D.   EIPECTRY 

1.  CONFIGURATION 

a.  language  -  JANUS/Ada 
h.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-ee  (version  1.14) 

f.  Package  description: 

The  Directry  package  controls  the  sending  and  recei- 
ving of  directory  information  from  the  Z-1?0  workstations.  A 
FC3  is  created  with  question  marks  (?)  in  each  character  of 
the   file  name  and  type.   This  serves  as  a  wild  card  and   en- 
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Directory 
The  send i -^2 
other   and. 
finished . 
a nee  of  directory 


sent 
cci^s  . 

each 
es   are 


a   directory  frcrr  one  terninal 
all  active  terminals  in  the  network 
of  Paraneters:  None 
Called; 


2.    SU3HCUTINIS 
a.  Fre5ent_dir 

(1)  Type:  Procedure 

(2)  Purpose:  To  send 
to  another  terminal  or  to 

(3)  rescription 

(4)  Sutroutines 
Clearscrn 
Reset_di5k 
rrive_select 
Out con sole 
Key  in 

Inter_machine 
Set_up 
Set_rf^A 

Dri veou t 

Search_f irst 

S en d_ string 

Send_dir 

Search_next 

Fad_tl ock 

Yes 

No 

Pi:t_str 

(5)  Process   Descriptic^: 

Fresent_dir  controls  sending  of  data  from  a 
tory  to  the  receiving  terminaKs).  The  user  specifi 
disk  and  a  file  control  tlcck  (yCB)  is  created  wi 
wildcard  filename  and  type  (????????.???).  Then  th 
specifies  destination  terminal(5)  and,  if  they  are  ac 
connection  is  estatlished.  The  directory  is  search 
the  first  match  to  the  PCB  ty  utilyzing  CP/M-86  functi 
#17  and  the  directory  information  is  placed  into 
structure  located  at  the  specified  direct  memory 
fD^^A)  in  126  tyte  records.  An  offset  is  computed 
unique  match  within  this  record.  Present_dir  transmits 
tyte  match  to  the  receiving  terminal(s).  Function  c 
is  used  to  cttain  all  su'bsequent  matches.  Fres 
transmits  a  total  of  eight  16  hyte  segments  tefore  tr 
ting  the  end  of  tlock  code,  so  the  receiving  term 
receive  a  full,  contiguous  128  tyte  "block.  Additi 
Present_dir  indicates  end  of  directory  hy  sending  yes 
codes  with  each  128  tytes.  The  user  is  told  if  there 
files  on  a  selected  disk  and  a  message  stating  such  i 
to  the  receiving  terminal(s). 
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and    store    in   a 
iMone 


1?.  Receive_dir 

(1)  Type:    Procedure 

(2)  Purpose:        To      receive   and    store    in   a      file    the 

directory    fvorr   a   serdin^    terrrinal. 

(3)  Description  of  Fararreters: 

(4)  Sutroutines  Called: 
Clearscrn 
Eeset_disk: 
rrive_select 
rarse_cap 
Outconsole 

Key  in 

Delete_f ile 

Create_f ile 

Set_rMA 

Indfile 

V<rite_seq 

Recv_"block 

Trivein 

Close_fil8 

(5)  Process  Description: 

Receive_dir  controls  the  reception  of  directory 
data  from  a  sendirg  terminal.  The  user  specifies  the  disk, 
the  file  name,  and  the  file  type  to  store  the  data  and  a  file 
control  llocM.  (FCB)  is  created.  The  file  specified  hy  the  FC5 
is  first  deleted  using  CP/M-8e  function  call  #19  to  ensure  no 
duplication  occurs  and  then  created  ly  utilyzin^i  function 
c?ll  #22.  126  tytes  of  data  is  received  and  stored  in  a  data 
structure  located  at  the  specified  direct  remory  address 
(DMA).  lach  128  tytes  of  directory  data  is  displayed  and  the 
user  is  given  the  option  of  storing  the  information  in  the 
file  created.  The  data  is  written  to  the  file  using  function 
call  #21  and  the  the  sender  is  told  to  transmit  the  next  125 
tytes  of  data.  Receive_dir  checks  after  each  hlock  of  data  is 
received  to  determine  if  end  of  directory  has  occurred. 
Receive_dir  tells  the  user  if  either  an  inappropriate  file 
name  or  type  is  used,  if  directory  space  is  unavailatle  for 
the  initial  filename,  if  directory  space  is  unavailatle  for 
new  extents  of  an  existing  entry,  or  if  disk  space  is  full. 
After  directory  reception  has  teen  completed,  the  file  is 
closed  . 


r  . 


V.HO 


CONFIGURATION' 

a.  Language  -  JANUS/Ada 

t 

c 


Compiler  Version  -  1.47 

linker  Version  -  1.47 

Target  Hardware  -  Zenith  Z-100  microcomputer 

Operating  System  -  CP/M-e6  (version  1.14) 
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f.  Package  descripti or : 

The  lAho  package  controls  the  inauiry  for  and  reception 
of  net  status;  which  machines  are  currently  active  in  the 
network . 

2.  3UBRCUTINIS 
a.  khos_there 

(1)  Type:  Procedure 

(2)  Purpose:  To  request  and  receive  net  status 
inf orma  ti  :n . 

(3)  Eescription  of  Parameters:  None 

(4)  Subroutines    Called: 
C  learscrn 
P.ecv_"bl  ock 
5>.ter_machine 
Setup 

F  u  t  _  i  n  t 

(5)  Process  Descripticn: 

lihos_there  prompts  the  user  to  enter  his  terminal 
nurler  for  toth  the  source  and  destination  terminals.  After  a 
connection  has  teen  estatlished,  the  net  status  information 
from  the  Concentrator  is  received  end  displayed. 

G.   5UIIPRD 

1.  CC:^JFIGU^-^ATIO.M 

a.  Lan,?ua^e  -  JANUS /Ada 
t.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  1-12:1   microcomputer 

e.  Operating  System  -  CF/m-86  (version  1.14; 

f.  Package  description: 

The  Pulltrd  package  controls  the  inquiry  for  receiving 
the  current  messages  from  the  tulletin  toard  arid  storing 
them  on  file. 

2.  SUPRCUTINIS 

a.    Recv_ti]lletin 

(1)  'Type:  Procedure 

(2)  Purpose:  To  re'^eive  lulletin  toard  information. 

(3)  'description  of  Parameters:   None. 

(4)  Sutroutines  Called: 
Clearscrn 
Enter_machine 
Setup 

Receive file 
Keyin 

(5)  Process  Ee  sc  rii-t  i  on  : 

Recv_tulletin  prompts  the  user  to  enter  *»24  for  the 
destination  terminal.  Then,  if  the  tulletin  toard  (ter- 
minal #24^  is  active,  Recv_tulletin  estatlishes  a  connection. 
It   calls  Receivefile  which  handles  the  actual  file   transfer 
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of  the  lata  frorr  the  bulletin  "board  and  stores  it  in  a  user 
specified  file.  Error  rressages  are  displayed  if  either  an 
inappropriate  file  name  or  type  is  used,  if  directory  space 
is  unavailable  for  the  initial  filename,  if  directory  space 
is  unavailable  for  new  extents  of  an  existing  entry,  or  if 
disic  space  is  full.  After  reception  of  the  bulletin  board 
data  has  been  completed,  the  file  is  closed. 


H.   PULLFTIN 

1.  CONFIGUHATION 

a.  Language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  linker  Version  -  1.47 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

Bulletin  is  the  package  that  implements  the  network 
bulletin  board.  It  controls  the  reception  of  individual 
messages  destined  for  the  bulletin  board  and  the  transmission 
in  128  byte  blocks  suitable  for  file  transfer  of  all  current 
messages  at  a  given  time.  Messages  are  received  in  a  single 
block.  The  bulletin  board  has  the  capacity  of  twenty  mes- 
sages of  1600  bytes  each.  When  the  capacity  is  exceeded,  the 
first  one  in  is  the  first  one  out.  Messages  are  stored  as  an 
array  of  records  with  fields  for  the  message  and  its  length. 

2.  SUEHOUTINTS 

a.  Contained:  None. 

b.  Called: 
Clearscrn 
Active 
Waiting 
Hecv_block 
Endmsg 
Send_block 
No 

Yes 


3.  COMMENTS 


#24. 


The  network  bulletin  board  is  'hard  wired'  into^  port 
„^..  It  is  invoked  by  typing  the  command  "bulletin".  A 
message  is  displayed  stating  that  this  terminal  is  the  net- 
work bulletin  beard.  The  program  loops  endlessly  waiting  for 
requests  to  receive  messages  or  send  current  message 
inventory.  If  another  terminal  at  another  port  is  desired  to 
be  the  network  bulletin  board,  the  package  Poll  must  be 
changed  to  reflect  the  new  port,  (see  Appendix  C.)  There  can 
be  only  one  bulletin  board  active  at  a  time. 
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^YUTIL 


in    JANUS /Ada. 


CONFIGU^ATICN 

a.    Lanpua,e:e   -   JANUS /A'5a 

Corrpiler   Version    -   1.4? 

Lirker  Versior  -  1.47 

Target  Eardv/are  -  Zenith  2-10?  nicroconputer 

Operating  Systerr  -  CF/^'-8^  (version  1.14; 

Facka^^  description: 

I^.yutil  package  rontains  various  utility   prograns 


t. 

c  . 
d. 
e . 

The 


2.    SU^ROUTIMIS 
a.    Fut_int 

(1 )  Type  :    Procedure 

(2)  Purpose;    To   display    integers. 

(3)  rescription  of  Pararreters;  A  ^'•alue  of  type 
integer    to   he   displayed    is    the    input   pararreter. 

(4)  Sutrcutines    Called: 
N'y_put 

(5)  Process    description: 

Fut_int  takes  the  input  pararreter  and  deterrrines 
its  sign.  Then  Put_int  strips  off  each  digit,  starting  from 
the    left    and    rerroving   leading    zeros,    and   displays    it. 


Clear  STn 

(1)  Type:  Procedure 

(2y  Purpose:  To  clear  the  display  screen 

(3)  EescriDtion  cf  Parameters:  None. 

(4)  Suhroutines  Called: 
Outconsole 

(5)  Process  Description: 

Clearscrn  outputs  the  CP/r^-8*^  clear  screen  codes 


user's  input  of   source 

value   of   t,\pe 
are 


c.  In ter_machire 

(1)  Type:  Procedure 

(2)  Purpose:   To   get   the 
end  destination  machines. 

(3)  Description   of  Parameters:   A 
Integer   indicating  the  source  and  destination   machines 
the  output  parameters. 

(4)  Suhroutines  Called: 

Outconsole 
K  e  y  i  n 

(5)  Process  Description: 
Enter_machine  prompts  the  user  for  input  and   .  _. 

displays  it  for  confirmation.  The  ^^eyhoard  input  is  converted 
to  I'lteger  values  which  are  assigned  to  the  output 
paramet  ers  . 


then 
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d.  Crive_select 

(1)  Type:  Procedure 

(2)  Purpose:   To   get 


the  user's  selection  of  disk 


drive. 

"byte   i 
paramet 


display 
inputs 
then  pa 
the  iri 
paremet 


(3) 
ndicat 
er  . 

(4) 


(5) 

Dri 
s   it 

are  t 
ssed  t 
ve .  T 
er  . 


Eescription  of  Faraireters:   A   value  of    type 
ing   the   disk  drive  selection   is   the   output 

Suhroutines  Called: 

Outccnsole 

Key  in 

Select_drive 

Process  Description: 
ve_select   prompts  the  user  for  input  and   then 

for  confirmation.  Lower  case  and  upper  case 
reated  the  same.  The  appropriate  parameter  is 
0  the  CP/!^-86  function  call  #14,  which  selects 
he  drive  selection  is  then  returned  as  an  output 


H.   MYASMLIB 

1.  CONFIGURATION 

a.  Language  -  JANUS/Assemhler 
h.  Compiler  Version  -  1.50 

c.  Linker  Version  -  1.50 

d.  Target  Hardware  -  Zenith  Z-100  microcomputer 

e.  Operating  System  -  CP/M-86  (version  1.14) 

f.  Package  description: 

The  Myasmlih  package  contains  the  lihrary  of  assembly 
language  subroutines  for  the  Z-100  workstations. 

2.  COMMENTS 

a.  JANUS/Ada  parameters  for  JANUS/Assemhler  modules 
are  placed  on  the  stack  at  subroutine  call  with  the  last 
parameter   closest  to  the  top  and  the  return   address  on   the 


very  top. 
IN   and  the 
and  IN  OUT. 
parameters 
address. 


Discrete  values  are  passed  for  parameters  of  type 
address  of  the  parameter  is  passed  for  types  OUT 
Upon  return  to  the  calling  program  OUT  and  IN  OUT 
are  removed  from  the  stack  along  with  the   return 


b 
to  other 

Send_block 

Tes 

No 

Recv_block 

Endf ile 

Active 

Waiting 

Setup 

Indmsg 

End  block 


The  following  subroutines  involve  input  and  output 
terminals  via  the  modem  port  (J2) : 


echo   c 

tytes 

ceives 

recppt  i 

transmi 

ted,   t 

sends  a 

data  pr 

lowed 

contain 

reived 


Send_stri 

Send_dir 

Triveout 

Drivein 

Off 

The   rreth 

becking  p 

of  data 

the  det 
on .  The 
tted  data 
he  sendi 
n  error  c 
evicusly 
t'y  the  re 
a  f  i  n  i 
to  ensure 


ng 


od  of 
rocedu 
one  at 
a  hy  te 
s  e  n  d  i  n 

and  c 
ng  su 
ode  to 
receiv 
transrr 
te   wa 

that 


trans 
re  . 

a  ti 
s  and 
g  suh 
hecks 
brout 

tell 
ed  (a 
itted 
iting 
the  f 


mssion 
The  sen 
me.   Th 

echos 
routine 

for  er 
ine  eit 

the  re 
nd  proc 

data  . 

time  a 
inal  ec 


used 
ding 
e  rec 
each 

comp 
ror . 
her  5 
ceivi 
essed 

All 
fter 
ho  wa 


inv 

sut 

eivi 

one 

ares 

If 
impl 
ng  s 
)  wa 
rece 
the 
s  re 


olves  an 
routine 
ng  suhrou 
immediat 
the  echo 
an  error 
y   ret  ran 
uhroutine 
s  in   err 
iving  su 
last  data 
ceived  pr 


immediate 
transmits 
tine  re- 
ely  upon 

with  the 
is  detec- 
smits   or 

that  the 
or,  fol- 
hr  out  ines 

was  re- 
operly . 


3.  3UEHCUTINFS 
a.  Create_file 

(1)  Type:  Procedure 

(2)  Purpose:  To  create  files  specified  ty  the  FCB. 

(3)  lescription  of  Parameters:  A  value  of  type 
Integer  containing  the  FCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-86 
function  call  is  the  output  parameter. 

(4)  Sutrcutines  Called:  N/A. 

(5)  Process  Description: 

Create_file  implements  the  CP/M-86  function  call 
creates  (and  opens)  the  file  specified  ty  the  FCB.  It 
a  0,  1,  2,  or  3  if  the  operation  was  successful  and 
h)  if  no  more  directory  space  is  available. 


#22.  It 
returns 

255  (fiF 


h.  Close  file 

(1)  Type:  Procedure 

(2)  Purpose:  To  close  files  specified  by  the  FCB. 

(3)  Lescription  of  Parameters:  A  value  of  type 
Integer  containing  the  FCB  address  is  the  input  parameter.  A 
value  of  type  Integer  indicating  the  result  of  the  CP/M-86 
function  call  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Close_file  implements  the  CP/M-86  function  call 
#ie.  It  closes  the  file  specified  by  the  FCB.  It  returns  a  0, 
1,  2,  or  3  if  the  operation  was  successful  and  255  (0FFh)  if 
the  file  could  not  be  found. 
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result    of      the 


c.    Oper_file 

(1)  '^ype:    Procedure 

(2)  Purpose:    To    ope^    files    specified    ty    the 

(3)  Eescription  of  P^rareters:  A  val'ie  o 
Integer  containing  the  FCE  address  is  the  ir^ut  parare 
value  cf  type  Integer  indicating  the 
function    call    is    the    output    nararpeter. 

(4)  Sulroutines    Called:    N'/A. 

(5)  Process    Ilescript  i  on  : 
Cpen_file    in-plements    the   CF/M-66 

the    file    specified    by    the   FCE.    It 

and 


It 

or   ?   if  the  operation  was  successful 

file  could  not  le   fcu^d. 


opens 


function  ca 
returns  a  Z 
255  (ZJFh^ 


PCS. 
f   type 
ter .   A 

CP/[^-86 


11  #15. 
,  1,  2, 
if   the 


d.  Read_ 

(2)  P 

fied  ty  the  FC? 

(3) 
Integer  contain 
value   of  type 
function  call  i 

(4)  S 

(5)  P 
Read_ 

It  reads  sequen 
fied  ly  the  FCB 
?i  if  the  opera 
at  the  next  rec 

file. 


seq 

ype :  Procedure 

urpcse:   To  read  data  fror  an  open  file  speci- 

Eescription   of  Paraireters:   A  value   of   type 
ing  the  FCE  address  is  the  input  parameter.   A 
Integer  indicating  the  result  of   the   CP/M-S6 
s  the  output  paran";eter. 
utroutines  Called:  N /'A  . 

rocess  Eescription: 

seq  in-plerrents  the  CF/K-e6  function  call  #20. 
tial  12P  tyte  records  frorr  an  open  file  speci- 
into  memory  at  the  current  EMA .  It  returns  a 
tion  was  successful  and  a  1  if  no  data  exists 
ord  position.   Normally  this  indicates  end   of 


fied 

Inte 
valu 
func 


It 

spec 

retu 

is 

requ 

16K) 

data 


e.  Wr 

(1 
(2 
ty  the 

(3 

ger  cont 

e   of   t 

tion  cal 

(4 

(5 

Wr 

writes 

ified  ty 

rns   a  0 

no  more 

ired   wh 

,   or   a 

records 


ite_seq 
)  Type:  Proc 
)  Purpose: 
FCE. 

)   Eescripti 
aining  the  F 
ype  Integer 
lis  the  out 
)  Sutrcutine 
)  Process  De 
ite_seq  impl 
sequential 
the  FCB  fr 
if  the  oper 
space  in  th 
en  the  file 
2  if  there 


edure 

To  write  data  to 


an   open  file  speci- 


on   of  Parameters:   A  value   cf   type 
CE  address  is  the  input  parameter.   A 
indicating  the  result  of  the   CP/M-86 
put  parameter, 
s  Called:  \I/A. 
script  i  on : 

ements  the  CP/^-8c  function  call  #21. 
128  tyte  records  to  an  open  file 
om  memory  at  the  current  DMA.  It 
ation  was  successful  and  a  1  if  there 
e  directory  for  a  new  extent  entry 
is  larger  than  16K  (or  a  multiple  cf 
is  CO  mere  space  on  the  dis\c  for   new 
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(1)  Type:  Procedure 

(2)  Purpose:    To  specify 


the  Eirect  ^^emo^y  Address 


FCr. 

Inte 
valu 
func 


(2)  Purpose: 


delete 


file  specified 


#19. 
7  if 
coul 


(3)  Eescription  of  Parameters:  A  value  of  t>pe 
ger  containing  the  JCB  address  is  the  input  pararreter.  A 
e  of  type  Integer  indicating  the  result  of  the  CP/M-66 
tion  call  is  the  output  par<=rreter. 

(4)  Sutrcutines  Called:  N /A . 

(5)  Process  Eescription: 
EelPte_file   irplements   the 

It  deletes  the  file  specified  by 
the  operation  was  successful  and  255  (2!P?h)  if  the 
d  not  te  f cu^d  . 


cp/r^-ee 

the  FC3 


function   call 

It  returns  a 
file 


h.  Select_disk 

(1)  TyDe:  Procedure 

(2)  Purpose:   To  select  a  specified 

(3)  Eescription  of  Pararreters:  A 
Integer  containing  the  selected  disk  drive 
■Dararneter .  ' 

(4)  Sutrou tines  Called:  N/A. 

(5)  Process  Eescription: 

Select_disk  itrplements   the  CP/M-86  function 
#14.   It  designates  the  selected  disk  (0  =  A,  1  =  5,  etc 
the  default  drive  for  sutsequent  disk  operations. 


disk  drive, 
value   of   t:ype 
is   the   input 


call 
)  as 


Reset  disk 

(1)  Type:  Procedure 

Purpose:   To  reset  all  disk  drive  systerns. 
Eescription  of  Parameters:   None. 
Sulrrcutines  Called:  N/A. 
Process  Description: 
Reset  disk   implements  the  CP/M-86   function 
#13.   It   restores   the  file  system  to  reset  state  where 
drives   are  set  to  read/write  and  A  is  the  default  drive 
subsequent  disk  operations. 


(2) 
(3) 
(4) 

(5) 


call 
all 
for 


J.  Keyin 

(1)  Type:  Procedure 

(2)  Purpose:  To  oltain  input  from  the  keyboard. 

(3)  Description  of  Parameters:  A  value  of  type 
Byte   obtained   from   the  keyboard  is  the   output   parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Keyin  implements  the  CP/M-e6  function  call  #06.  It 
loops  infinitely  until  a  key  is  pressed  and  then  the 
character  obtained  is  returned  as  the  output  parameter. 

k.  Outconsole 

(1)  Type:  Procedure 

(2)  Purpose:  To  display  output  to  the  console  de- 
vice . 

(3)  Description  of  Parameters:  A  value  of  type  Byte 
to  be  displayed  is  the  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Outconsole  implements  the  CP/I^-e6  function  call 
#02. 

1.  Send_block 

(1)  Type:  Procedure 

(2)  Purpose:  To  send  a  block  of  data  to  another 
terminal  via  the  modem  port. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  address  of  the  data  structure  to  be 
sent  is  one  input  parameter.  A  value  of  the  type  Integer 
indicating  the  size  of  the  data  structure  is  the  other  input 
parameter  . 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_block  sends  a  block  of  data  out  the  modem  port 
(J2)  sequentially  one  byte  at  a  time,  decrementing  the  size 
of  the  data  block  until  it  equals  zero.  Then  it  transmits  a 
sequence  of  four  end  of  block  codes  (0FFh)  to  indicate  that 
end  of  block  has  been  reached.  Any  data  structure  may  be 
sent  using  this  procedure. 

m.  Yes 

(1)  Type:    Procedure 

(2)  Purpose:  To  indicate  to  the  receiving 
terminal(s)   that   an  end   of  process  has   been   reached. 

(3)  Description  of  Parameters:  None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Yes  sends  out  a  sequence  of  four  end  of  process 
codes  (CFlh'j  when  a  particular  process  is  finished. 
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nal(s) 


that  a 


n.  No 
(1) 
(2) 

that  a 
(3) 
(4) 
(5) 
No 

process 


Type:  Procedure 

Purpose:   To   indicate  to  the  receiving  termi- 
process  is  still  ongoing. 
Eescription  of  Parameters:   None. 
Sutroutines  Called:  N/A. 
Process  Description: 
sends   out  a  single  no  code  (6Eh)   to   indicate 

is  not  finished. 


another 
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receiv 
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the  data  structure  in  which 
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may  he  received  using  this 


p.  Indfile 

(1)  Type:  Procedure 

(2)  Purpose:  To  determine  whether  or  not  a  file  or 
directory  transfer  process  has  finished 

(3)  Description  of  Pararreters:  A  value  of  the  type 
Boolean  indicating  finish  or  not  is  the  output  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process    Description: 

Fndfile  waits  to  receive  either  a  single  no  code  (6Eh) 
or  a  sequence  of  four  end  of  process  codes  (0Plh).  If  a  no  code 
is  received  the  value  false  is  returned  to  the  output  paramemter, 
if  a  sequence  of  four  end  of  process  codes  is  received  a  value  of 
true  is  returned. 

q.  Active 

(1)  Type:    Procedure 

(2)  Purpose:   To  indicate   to  the  Concentrator  that 
a  particular  terminal  is  in  the  network. 

(3)  Description   of  Parameters:   None. 

(4)  Sutroutines  Called:  N/A. 

(5)  Process  Description: 

Active   sends   out  an  active  code  (0D0h)   when   the 
terminal  is  ready  to  communicate  with  the  network. 


65 


r.    Waiting 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  the  status  the  Concentrator 
has  for  an  active  terminal. 

(3)  Cescription  of  Parameters:  A  value  of  type 
tyte  indicating  the  status. 

(4)  Subroutines  Called:  N/A. 
(6)  Process  Description: 

Waiting  receives  the  status  from  the  Concentrator 
that  a  terminal's  active  code  prompted.  A  0  indicates 
nothing  waiting,  a  1  indicates  file  waiting,  a  2  indicates 
rressage  waiting,  and  a  3  indicates  that  the  inactive  recei- 
ving terminal  to  which  this  terminal  had  previously  tried  to 
send  is  now  active. 

s.  Setup 

(1)  Type:  Procedure 

(2)  Purpose:  To  establish  a  connection  with  anot- 
her terminal  via  the  Concentrator. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  address  of  the  connection  data  struc- 
ture. A  value  of  the  type  Boolean  indicating  the  result  of 
the  connection   set   up   attempt   is   the   output   variable. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Setup  transmits  to  the  Concentrator  the  connection 
data  structure  for  the  purposes  of  establishing  a  connection 
with  another  terminal.  The  connection  data  structure  con- 
sists of  destination  field  for  the  destination  terminal(s),  a 
source  field  for  the  source  terminal,  and  a  process  field  for 
the  process  to  be  accomplished.  Setup  sends  out  a  sequence 
of  four  end  of  block  codes  (0FJh)  to  indicate  the  end  of  the 
data  structure.  It  then  waits  to  determine  the  result  of  the 
connection  set  up  attempt.  If  the  connection  was  successful, 
send_ready  is  set  to  true.  If  it  was  not  because  the  desti- 
nation was  inactive,  then  send__ready  is  set  to  false. 

t.  r.yput 

(1)  Type:  Procedure 

(2)  Purpose:   To  display  integers. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  integer  to  be  displayed. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Myput  converts  the  integer  input  into  its  ascii 
equivalent  and  uses  CP/M-86  function  call  #02  to  display  it. 

u.  Put_str 

(1)  Type:  Procedure 

(2)  Purpose:    To   display  strings. 

(3)  Description  of  Parameters:  A  value  of  type 
String   indicating  the  address  of  the  string  to  be  displayed. 
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(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Put_str  is  passed  the  address  of  the  string  to  be 
displayed.  The  first  byte  at  that  address  is  the  string 
length.  The  succeeding  byte  are  displayed  using  CP/M-e6  fun- 
ction call  #02  until  the  string  length  counter  equals  zero. 
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(1)  Type:  Procedure 
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(1)  Type:  Procedure 
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nput  parameter.    A  value  of  the  type   Integer 

FC5  address  is  the  other  input  parameter.  A 
ype  Integer  indicting  the  result  of  the  fun- 
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ccation  of  the  matched  directory  entry  is  the 
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recess  Description: 

h_first  implements  CP/M-96  function  call  #17. 
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Search_next 

(1)  Type:  Procedure 

(2)  Purpose:   To   search 


for  the  next   directory 


(3)  Description  of  Parameters:    A  value   of   the 
Integer  indicting  the  buffer  address  for  the  directory 
is  one  input  parameter.   A  value  of  the  type  Integer 
ing   the  PCB  address  is  the  other   input   parameter.   A 
of   the  type  Integer  indicting  the  result  of  the   fun- 
is one  output  parameter.   A  value  of  the  type   Integer 
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indicting  the  location  of  the  matched  directory  entry  is  the 
other  output  parameter. 

(4)  Sutroutines  Called:  M/A. 

(5)  Process  Description: 

3earch_next  itrplements  CP/M-86  function  call  #18. 
It  searches  the  directory  of  the  specified  drive  for  the  next 
rratch  of  the  file  name  and  type  of  the  specified  PCB.  When  a 
successful  match  is  found,  Search_first  places  the  128  hyte 
record  containing  the  matched  directory  entry  and  returns  an 
offset  code  i<Z ,  1,  2,  or  3)  that  specifies  the  exact  location 
of  the  entry  within  the  record  using  the  formula:  location  of 
entry  =  (offset  *  32)  +  D^A.  If  a  match  cannot  he  found, 
then  Search_first  returns  255  (0FFh)  . 

y.  End_hlock 

1)  Type:  Procedure 

2)  Purpose:    To   indicate   end   of   block  during 
directory  transfer. 

(3)  Tescription   of   Parameters:   None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

End_hlock  transmits  a  sequence  of  four  end  of  "block 
codes  (0FPh)  to  indicate  end  of  block  during  directory  tran- 
sfers . 

z.  3end_5tring 

(1 )  Type :  Procedure 

(2)  Purpose:   To  transmit  strings. 

(3)  Description  of  Parameters:  A  value  of  type 
String  indicating  the  address  of  the  string  to  be  output  is 
the  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_string  is  passed  the  address  of  the  string  to 
be  transmitted.  The  first  byte  of  the  input  parameter  is  the 
length  of  the  string.  Send_string  transmits  the  succeeding 
bytes  one  at  a  time  out  the  modem  port  (J2)  until  the  string 
length  counter  equals  zero. 

aa .  Send  dir 

(1)  Type:  Procedure 

(2)  Purpose:   To  transmit  matched  directory  entries. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  address  of  the  matched  directory  to  be 
output  is  one  input  parameter.  A  value  of  the  type  Integer 
indicating  the  size  of  the  directory  entry  to  be  transmitted 
is  the  other  input  parameter. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Send_dir  transmits  the  bytes  of  the  matched  direc- 
tory entry  sequentially,  one  byte  at  a  time,  via  the  modem 
port  (J2)  until  the  directory  length  counter  equals  zero. 
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tb.    Driveout 

(1)  Type:  Procedure 

(2)  Purpose:  To  transmit  the  disk  drive  used  in  a 
directory  transfer. 

(3)  Description  of  Parameters:  A  value  of  type 
Byte  indicating  the  specified  drive  to  te  output  is  the  input 
parameter . 

(4)  Sutroutines  Called:  N ^A . 

(5)  Process  Description: 

Driveout  transmits  the  byte  representing  the  speci- 
fied drive  via  the  modem   port  (J2). 

cc  .  Drivein 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  the  disk  drive  used  in  a 
directory  transfer. 

(3)  Description  of  Parameters:  A  value  of  type 
Byte  indicating  the  specified  drive  received  is  the  output 
parameter . 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Drivein  receives  the  byte  representing  the  speci- 
fied drive  via  the  modem   port  (J2). 

dd.  Cff 

(1)  Type:  Procedure 

(2)  Purpose:  To  inform  the  Concentrator  that  a 
terminal  is  no  longer  active. 

(3)  Description  of  Parameters:   None. 

(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Off  transmits  the  off  code  (0Fh)  via  the  modem 
port  ( J2)  . 


J.   NAMIS 

1.  CO.MIIGURATION 

a.  Language  -  JANUS/Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Intel  86/12A  SEC 

e.  Operating  System  -  CP/M-B6  (version  1.14) 

f.  Package  description: 

The  Names  specification  contains  the  following  global 

objects  : 

TYPI   conctn 
connec ti  on 
TTfPI    blk 
bl  ock 

bl ock_si  ze 
re  trn 
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APPrNDIX   c 
MAINTENANCE  MANUAL  FOP.  CONCINTRATCR  PHOGRAKS 


POLL 

1.  CC.MFIGURATICN 
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SUBROUTINES 
a.  Convert 

(1)  Type:  Procedure 

(2)  Purpose:  To  convert  the  hyte  information  re- 
ceived from  the  Z-100  workstations  concerning  source  and 
destination  terminals  into  their  integer  physical  addresses. 

(3)  Lescription  of  Parameters:  A  value  of  type 
integer  indi'^ating  the  index  position  in  tne  queue  of  the 
current  pr ccess_status  record  is  the  input  variable. 

(4)  SutToutines  Called:  None 

(5)  Process  Tescription: 

Convert  is  two  large  case  statements  wnich  tran- 
slate the  bytes  received  from  the  workstations  into  the 
proper  integer  physical  addresses  for  each  port. 

t.  Pell  calls  the  following:  subroutines: 
Check_port 
Check_queue 
Connect 
Convert 
Xfer 
Conc^f er 
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No_xf er 
Broadcast 
Net_stat 
Cueue_status 

3.  COMMENTS 

Poll  is  resident  in  the  Concentrator  and  is  invoked  ty 
typing  the  command  "poll".  It  will  not  function  properly  if 
all  three  8538  BLC  expansior  boards  are  not  installed. 

To  change  the  port  number  of  the  bulletin  board,  the 
polling  sequence  must  be  changed  to  bypass  the  new  bulletin 
board  port  and  the  automatic  routing  routines  that  route 
bulletin  board  requests  to  the  predesignated  port  must  be 
changed  accordingly.  Additionally  the  value  of  'bullport'  in 
the  procedure  Broadcast  must  be  changed. 

To  expand  the  system  for  greater  numbers  of  terminals, 
add  the  appropriate  number  of  expansion  boards  and  change  the 
following  constants:  'boardno',  'machno',  'maxque',  and  the 
procedure  Convert  which  cortains  the  physical  addresses. 
Additionally,  the  value  of  'boardnum'  must  be  changed  in  the 
procedure  Broadcast. 


B.   CONCUTIL 

1.  CONFIGURATION 

a.  Language  -  JANUS /Ada 

b.  Compiler  Version  -  1.47 

c.  Linker  Version  -  1.47 

d.  Target  Hardware  -  Intel  86/12A  SBC 

e.  Operating  System  -   CP/M-86  (version  1.14) 

f.  Package  description; 

The  Concutil  package  contains  utility  programs  for  the 
Concentrator . 

2.  SUBROUTINES 

a.  Check_queue 

(1)  Type:  Procedure 

(2)  Purpose:  To  check  the  queue  for  waiting 
processes . 

(?)  Description  of  Parameters:  A  value  of  type 
Integer  indicating  the  number  of  processes  waiting  in  the 
queue  is  one  input  parameter.  A  value  of  type  Integer  indi- 
cating the  port  for  whom  waiting  processes  are  being  checked 
is  the  other  input  para-meter.  A  value  of  type  Integer 
indicating  the  position  index  of  the  waiting  process  is  one 
output  variable.  A  value  of  type  Boolean  indicating  whether 
or  not  there  are  waiting  processes  is  the  other  output 
variable . 

(4)  Subroutines  Called: 
Check_port 
C'ueue~status 
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(5)  Process  "Desc  ripti  or  : 

CberV:_queue  checks  the  q^jeue  for  waiting  processes. 
If  there  are  none  in  the  queue  then  false  is  returned.  If 
there  are  processes  in  the  queue,  a  checV  is  rrade  if  they  are 
waiting  for  the  specified  port.  If  not,  false  is  returnei. 
If  there  are  processes  in  the  queue  and  they  are  waiting;  for 
tne  specified  port,  their  position  in  the  queue  is  returned 
along  with  a  value  of  true.  Check_queue  then  tells  the 
specified  port  what  is  waiting  for  it  and  tells  the  sender  of 
the  waiting  process  to  resend. 


active 

integer 
intended 


Net_stat 

(1)  Type:  Procedure 

(2)  Purpose:    To  decode  and  transmit  the  list   of 
terminals   in   the   network   to   the   requestor. 

(3)  Pescription   cf   Parameters:   A  value   of   type 
indicating   the   port  for  which  the   net   status   is 


(4) 


■^et 


Su I routines  Called: 

Send_who_"block 

Process  rescript ic^ : 
_stat  controls  the  transrrission  of  the  list  of 
active  network  terrrinals.  Met_stat  checks  tne  data  structure 
'active_l ist '  for  those  terminals  for  which  true  has  been 
recorded,  indicating  that  they  are  active  and  stores  the 
terminal  number  inf  orR'at  ion  i-^  the  data  structure  'who_list'. 
It  is  'who  list'  that  is  transmitted  to  the  requestor. 


C.   COAS^'LIE 

1.  CONFISUBATION 

a.  language  -  JANUS/Assemtler 
t.  Compiler  Version  -  1.50 

c.  linker  Version  -  1.50 

d.  Target  Hardware  -  Intel  66/12A  S5C 

e.  Operating  System  -  CP/[^-86  (version  1.14) 

f.  Package  description: 

The   Ccasmlih  package   contains  the  litrary 
language  subroutines  for  the  Concentrator. 


of  assembly 


2.  CO^'r'PNTS 

a.  JANUS/Ada  parameters  for  JANUS/Assembler  modules 
are  placed  on  the  stack  at  subroutine  call  with  the  last 
rarameter   closest  to  the  toiD  and  the  return  address  on   the 


very  top. 
LM   and  the 

and  IN  OUT. 
parame  tens 
address . 


Discrete  values  are  passed  for  parameters  cf  type 
address  of  the  parameter  is  passed  for  types  OUT 
Upon  return  to  ^he  calling  program  OUT  and  I.N  OUT 
are  removed  from  the  stack  along  with  the   return 
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t.   The  following  sutroutines  i 

Check-_pcrt 

Connect 

Oueue_5tatus 

Send_who_"tlock 

Eroaccast 

Concxf er 

Xfer 
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b.  Connect 

(1)  Type:  Procedure 

(2)  Purpose:  To  receive  the  connection  record 
transmitted  by  the  sendi^^g  Z-100. 

(3)  Cescription  of  Parameters:  A  value  of  type 
Integer  'containing  the  address  of  the  port  from  which  the 
connection  rerord  is  to  be  received  is  the  input  parameter. 
A  value  of  type  Integer  indicating  the  address  of  the  data 
structure  in  which  the  connection  record  is  to  be  stored  is 
the  output  parameter. 
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(4)  Subroutines  Called:  N/A. 

(5)  Process  Description: 

Connect  receives  the  connection  record,  sequen- 
tially, one  byte  at  a  time  and  stores  it  in  the  data  struc- 
ture indicated  ty  the  input  parameter  until  a  sequence  of 
four  finish  codes  (0FFh),  irdicatin^  end  of  tlocir,  are 
received . 

c.  Cueue_status 

(1)  Type:  Procedure 

(2)  Purpose:  To  inform  a  polled  port  of  the  status 
of  waiting  processes  in  the  queue. 

(3)  Description   of   Parameters:   A  value 
Integer   containing   the   address  of  the  polled  port 
input  parameter.   A  value  of  type  Eyte  indi; 
waiting  in  the  queue  (or  none)  is  the  other 

(4)  Sutroutines  Called:  N/A. 

(5)  Process  Description: 
Cueue_status  transmits  to  the  port  indiceted  "by 

input   parameter   the  tyte  value  of  the  process   waiting 
that  port  ( or  none ) . 


of  type 
is  one 
ating  the  process 
output  parameter. 


one 
for 


ning  the 

Integer 
status  i 
Integer 
ning  the 
type   In 
the  last 


ning  the 
the  leng 
of  four 


.  Sen 
(1) 
(2) 
net 

(3) 

cont 

s  des 

indi 

net 

teger 

outp 

(4) 

(5) 

Sen 

net 

th  CO 

finis 


d_who 

Type 

Purp 

statu 

Des 

ainin 

tined 

ca  tin 

statu 

indi 

ut  pa 

Suhr 

Proc 

d_who 

statu 

un  ter 

h  cod 


_t;lock 

:  Procedure 

ose:  To  transmit  the  data  structure  contai' 

s . 


cripti  on 
g  the  add 

is  one  i 
g  the  add 
s  is  ano  t 
eating  th 
rameter. 
cutines  C 
ess  Descr 
_hlock  tr 
s  sequent 

equals  z 
es  (0FFh) 


of  Parameters: 
ress  of  the  port 
nput  parameter, 
ress  of  the  data 


A  value   of   type 

to  which  the   net 

A  value  of   t>pe 

structure  contai- 


her  input  parameter.    A  value   of 
e  length  of  the  data  structure   is 

ailed:  N/A. 
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,    indicating   end    of    hloclc. 


e.    Broadcast 

(1)  Type:  Procedure 

(2)  Purpose:  To  transfer  data  in  a  broadcast  mode: 
from  one  to  many. 

(3)  Description  of  Parameters:  A  value  of  type 
Integer  containing  the  address  of  the  sending  port  is  the 
input  parameter.  A  value  of  type  Eyte  containing  the  address 
used  to  store  the  input  temporarily  is  the  output  parameter. 

(4)  Subroutines  Celled:  N/A. 
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(5)  Process  Description: 
Broadcast   controls  the  transmiss 
the   sending  port  to  all  receivir^  ports, 
srritted   one   tyte  at  a  time  as  rapidly  as 
ports   (bypassing  the  sender,   and  the  "bull 
first  hyte  is  received  from  the  sending  per 
first  input  parameter.    It  is  then  sent  in 
to   all   the  ports  leginning  with  the  first 
work.    Broadcast  increments  the  receiving 
ports  are  addressed  and  the  hyte  is  transmi 
saved   temporarily  for  error  checking.   The 
hack   to   receive  the  echoes.    If  there  ar 
error,   that   port  address  is  saved  until  a 
been  received.   Then  all  the  addresses  in  e 
one  at  a  time  until  the  error  is  corrected, 
or   if   there  were  no  errors.   Broadcast  ec 
sender  the  received  hyte  for  the  sender's  e 
there   was  an  error,   the  sender  sends  out 
the   retransmitted   hyte  and  the  entire  pro 
until  the  error  is  corrected.   If  there  is 
hyte   is  transmitted  to  the  Concentrator  un 
four  end  of  process  code  echoes  (0Flh)  are 
the   receiving   terminals.    Eroedcast   wai 
period  of  time  for  echoes  from  each  receivi 
a  terminal  is  inactive,   the  hytes  transmit 
continuously   overwritten.   No   attempt   is 
inactive  terminals. 
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(1)  Type:  Procedure 
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g.    Xfer 

(1)  Type:  Procedure 

(2)  Purpose:  To  inforrr  the  sendir^  port  that  a 
ccnnection  has  heen  estall i shed  . 

(3)  Description  of  Parameters:  A  value  cf  type 
Integer  rortaining  the  address  cf  the  sending  port  is  the 
ii^put  parameter. 

(4)  Sutroutines  Called:  \A. 
(f:)  Process  "description: 

Xfer  transtits  to  the  sending  port  a  code  (01h) 
informing  it  that  a  connection  has  teen  estetlished. 

h.  No  xfer 

'!lT  Type:  Procedure 

(2)  Purposes  To  inform  the  sending  pert  that  a 
cc^.necticn  can  net  te  estatlished . 

(3^*  Tescription  cf  Parameters:  A  value  of  type 
Integer  containing  the  address  cf  the  sending  port  is  the 
input  parameter. 

(4!!  Subroutines  Called:  N'/A. 

(5)  Process  Tescription: 

Mo  xfer  transmits  to  the  sending  port  a  code  (00h) 
informing   it   that   a   connection  can   not   he  established. 


CCNCNAM 

1.  CONTIGUP.ATIOM 


a 
t 
r 
d 


anguage  -  JANUS  ''Ada 
ompiler  Version  -  1.4' 
Linker  Version  -  1.47 


Linker  Version  -  1.47 
Target  Hardware  -  Intel  66/12A  SEC 
Operating  System  -  CP/M-e6  (version  1.14) 
V^^rV^^^p    d  p«;r  r1  nt  i  on  : 


f.  Package  description: 
The  Concname   specification  contains 
glctal  ctjects: 

TYPE  process_st£tus 

max  cue 

TYPi'que 

queue 

resend 

zero 

machno 

ready 

active_l ist 


the   following 
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APPENDIX   D 
LISTING  Of  Z-100  PROGRAM S 


PACKAGE  Names  IS 

— '■^  GLOBAL  TKPES,  CONSTANTS,  AND  VARIABLES  *— 

TYPE  ronctn  IS 
RECORD 

process:  tyte'f 
source:  tyte; 
destination:  bytet 

END  record; 

connection:  conctn? 

TYPE  blk  IS  ARRAY  (1..132)  OE  byte; 

tlock:  Ilk; 

block_5i2e:  CONSTANT  Integer  :=  128; 

retrn:  CONSTANT  BYTE  :=  tyte  (ie#0D#); 

space:  CONSTANT  BYTE  :=  tyte  (16#20#); 

input:  tyte; 

pause:  tyte; 

confirrr:    tyte; 

drive:    tyte; 

code:  integer; 

dest  ,  srce  :  Integer; 

send_ready:  Boolean; 

END  Names; 


PACKAGE  Xferfile  IS 


TYPE  fct  IS 


RECORD 
dr 
fn 
ft 
ex 
si 
s2 
re 
dn 
cr 


tyte; 
ARRAY 
ARRAY 
tyte; 
tyte; 
tyte; 
tyte; 
ARRAY 
tyte; 


(1 
(1 


.8) 
.3) 


OE 
OE 


tyte; 

tyte; 


(l..ie)  OF  tyte; 


END  record; 
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fctl:  fct; 
fn_length:  Integer? 

PROCEDURE  Sendfile; 
PROCEDURE  Peceivefile; 

PROCEDURE  Perse  cap  {fcl2:    OUT  fctJ  fnlen:  OUT  Integer); 
END  Xferfile; 


WITH  ^1yutil,  Myasrrlit,  Names; 
PACKAGE  BODY  Xferfile  IS 

USE  f^yutil,  ^1yasmlit,  Names; 


PROCEDURE  Sendfile  IS 

~-  AUTHOR:  THOMAS  V.  WORKS 

_— iic  CATE.'  JULT  1986 

— *  DESCRIPTION:    SENDFILE  PROMPTS  THE  USER  FOR  FILE  NAME  -— 

— *  AND  TKPE,   OPENS  THE  FILE  AND  TRANSMITS  EACH  128  BYTE   -~ 

— '^  RECORD  UNTIL  END  OF  FILE.    UPON  COMPLETION,   SENDFILE  *  — 

—'-^    CLOSES  THE  FILE  AND  RETURNS  TO  MAIN  MENU  *~ 

xtytes :  integer  :=  2', 

ctrl_f:  CONSTANT  BYTE  :=  byte  (16#06#); 

BEGIN 

Clearscrn; 

— ''^  SET  FCB  FOR  FILE  OPERATIONS  '^— 

fcbl.dr  :=  tyte(0) ; 
fcbLex  :=  tyte(0); 
Reset_disk; 

New_line; 

— ''^  PROMPT  USER  FOR  DISK  DRIVE  *  — 

Drive_select  (drive); 
New_line; 

~*  PROMPT  USER  FOR  FILE  NAME  AND  TYPE  *  — 

LOOP 

Put  ("ENTER  FILE  NAME.');  New  line; 
LOOP 

Put  ("FN. FT:  "); 

Parse  cap  (fctl,  fn  length); 

Put  ("file  "); 

Cutconsole  ( drive) ; 
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Put  (":"); 

FOR  i  IN  l..fn  length  LOOP 
Cutconsole  (fctl.fn  'i)  ); 

END  loop; 
Put  (".  ); 

FOR  i  IN  1. .3  LOOP 

Outconsole  (fctl.ft  (i)  ); 

END  loop; 

Put  ("  IS  SELECTID.  PRESS  RETURN  TO  CONFIRM,  "); 

Put  ("'^NY  OTHER  KEY  TO  RES  ELECT."); 

Keyin  (confirm) ; 

New  line; 

IF  confirm  =  retrn  THEN 

exit; 
END  if; 

Put  ("ENTRY  CANCELLED.  REENTER  FN:FT.");  New_line; 
New  line; 

END  loop; 

0pen_file  (fcbl 'ADDRESS,  code); 
fctl.cr  :=  tyte  (0) ; 

__*;:  SET  DMA  TO  ADDRESS  OF  DATA  STRUCTURE  THAT  WILL  - 
--':=  HOLD  DATA  READ  FROM  FILE  - 

Set_DMA  (tlock'ADDRESS;; 

---  IE  COCE  =  255  (0FFh)  THEN  FILE  COULD  NOT  BE  - 
— »!'  FOl"ND  AND  PROMPT  USER  TO  REENTER  FILE  NAME  AND  * 
— -  TYPE  - 

IF  code  /=  255  THEN 
Put  ("FILE  "); 
Outconsole  (drive); 
Put  (":"); 

FOR  i  IN  l..fn  length  LOOP 
Outconsole  Tfchl.fn  (i)  ); 

END  loop; 
Put  (  .  ); 

FOR  i  IN  1..3  LOOP 

Outconsole  (fctl.ft  (i)  ); 

END  loop; 

Put  ("  IS  OPENED.");  New_line; 

Clearscrn;  ~  | 

exit; 
END  it; 

Put  ("file  NOT  FOUND.  PLEASE  TRY  AGAIN.");  New  line; 

END  loop;  1 

--'■■'  PROMPT  USER  FOR  DESTINATION  AND  SOURCE  TERMINAL  #'s  ^'  — 
Enter_machine  (dest,  srce); 
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— *  CREATE  CONNECTION  RECORD  *  — 

connection .destinati on  :=  tyte  (dest); 
connection. source  :=  tyte  (srce); 
conrection .process  :=  ctrl_f; 

— -  ESTABLISH  CONNECTION  WITH  DESTINATION  *~ 

Put  ("WAITING...");  New  line;  New  line; 
Setup  (connection'ADDRESS,  send_ready) ; 
IF  send_ready  THEN 
IF  dest  =  0  THEN 

Put  ("FOR  BROADCAST,  PAUSE  TO  ALLOW  RECEIVER  TO  "); 

Put  ("GET  READY");  New  line; 

Put  ("PRESS  ANY  KEY  TO'SEND.  "); 

Keyin  (pause);  New  line;  New  line; 

END  if; 

Put  ("CONNECTION  ESTABLISHED,  SENDING  FILE...  "); 
New_line;  New_line; 

—'^    READ  AND  SEND  FILE  IN  128  BYTE  BLOCKS  '^— 

LOOP 

Reai_seq  (fctl 'ADDRESS ,  code); 
IF  code  =  1  THEN 
Yes; 

exit; 

ELSE 

No; 
END  if; 

Send_tlocli  ( tl  ock'ADDRESS,  block_size); 
END  LOCP; 

Close  file  ( fcbl 'ADDRESS ,  code); 
Put  ("file  SENT.");  New_line; 
ELSE 

Put  ("FILE  NOT  SENT.  DESTINATION  INACTIVE.");  New  line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 
Keyin  (pause); 

END  Sendfile; 


PROCEDURE  Receivefile  IS 

— *  AUTHOR:  THOMAS  Y.  WORKS 

--'•'  DATE:  JULY  1986 

— *  DESCRIPTION:   RECEIVEFILE  PROMPTS  THE  USER  FOR  FILE     ^^ 

— *  NAME  AND  TYPE,  CREATES  THE  FILE,  AND  RECEIVES  THE  128   - 
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BYTE  BLOCK  FROM  THE  SOURCE  AND  WRITES  TO  DISK  UNTIL 
END  OF  FILE.  THEN  IT  CLCSES  THE  FILE  AND  DISPLAYS  #  OF 
BYTES  RECEIVED.   LASTLY  IT  RETURNS  TO  MAIN  MENU. 

rtytes :  Integer  :=  0; 

length :  Integer i 

reason2:  STRING  :=  "END  OF  FILE."; 

finished:  Boolean  :=  false; 

BEGIN 

Clearscrn; 

— *  SET  FCB  FOR  FILE  OPERATIONS  -— 

fctl.dr  :=  tyte(0) ; 
fctl  .ex  :=  byte(0) ; 
Reset_disi5; 

~*  PROMPT  USER  FOR  DISK  DRIVE  ^— - 

New_line; 

Drive_select  (drive); 

New  line; 

Put'("ENTER  FILE  NAME.");  New_line; 

--»:'  PROMPT  USER  FOR  FILE  NAME  AND  TYPE  *  — 

LOO? 

Put  ("EN. FT:  "); 
Parse_cap  (fchl,  fn_length); 
New_line; 
Put  ("file  "); 
Outconsole  (drive ) ; 
Put  (":"); 

FOR  i  IN  l..fn_length  LOOP 
Outconsole  (fchl.fn  (i)  ); 

END  loop; 
Put  ("."); 

for  i  IN  1. .3  loop 

Outconsole  (fcbl.ft  (i)  ); 

END  loop; 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM.  "); 

New_line; 

Put  ("ANY  OTHER  KEY  TO  RESELECT."); 

Keyin  (confirm); 

New  line; 

IF  confirm  =  retrn  THEN 

exit; 
END  if; 

Put  ("ENTRY  CANCELLED.  REENTER  FN:FT.");  New_line; 
New  line; 

END  loop; 
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Delete  file  ( fctl 'ADDRESS ,  code); 
Create~file  ( f ctl 'ADDRFSS  ,  code); 
fctl.cr  :=  byte  f0); 

—  '^    SET  DMA  TO  ADDRESS  OE   DATA  STRUCTURE  THAT  WILL   *■ 
— ':=  HOLD  DATA  RECEIVED  EROM  SOURCE  '- 

Set_DrA  (tlock'ADDRESS)  ; 
IF  code  =  255  THEN 

Put  ("DIRECTORY  SPACE  UNAVAILABLE."); 
ELSE 

Put  ("EILE  ")  ; 

Cutconsole  (drive); 

Put  (":"); 

FOR  i  IN  1. .fn  length  LOOP 
Outconsole  Tfcbl.fn  (i)  ); 

END  loop; 
Put  ("."); 

FOR  i  IN  1..3  LOOP 

Outconsole  (fctl.ft  (i)  ); 
FND  loop; 

Put  ("  IS  OPENED.");  New_line; 
Clearscrn; 

— *  RECEIVE  AND  WRITE  FILE  IN  128  BYTE  BLOCKS  *— 

Put  ("RECEIVING  FILE...");  New  line; 
LOOP 

Endfile  (finished); 

EXIT  VHEN  finished; 

Recv_blGck  ( block'ADDRESS  ,  length); 

Vrite  seq  (fctl 'ADDRESS ,  code); 
END  LOOpT 

IF  code  =  1   THEN 

Put  ("ERROR.  NO  AVAILABLE  DIRECTORY  SPACE."); 

New  line; 
ELSIF  code  =  2  THEN 

Put  ("ERROR.  DISK  FULL.");  New_line; 
ELSE 

Put  ("FINISHED  VtRITING  FILE.");  New_line;  Mew_line; 

END  if; 

Close_file    ( fcbl'ADDRESS ,    code); 

rbytes    :=   rbytes  '"   128; 

Put_int    (rbytes);    Put    ("    BYTES   RECEIVED.");    New_line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 
Keyin  (pause); 

END  Receivefile; 
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PROCEEURE  Fars9_cap  (fctS:  OUT  fci;  fnlen:  OUT  Integer)  IS 


—  —  5l' 


AUTHOR:  THOMAS  V.  WORKS 

DATE:  SEPTEMBER  19S6 

DESCRIPTION:   PAR3E_CAP  PARSES  THE  USER'S  EILE  NAME 

AND  TYPE  FOR  INVALID  CP/M-86  CHARACTERS,  CHANGES  INPUT 

TO  UPPERCASE,  AND  PLACES  IT  IN  APPROPRIATE  FIELDS  OF 

FCB. 


period 
Ithan 
gthan 
ccrrma 
semi  ^ 
c  cl  on 
equal 
qma  rk 
star : 
1 1  r  a  c : 
rlrac : 


CONSTAN 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


T  BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


TYPE  naTe  IS  ARRAY 
filename:  nare; 
capital:  Integer; 
k:  Integer  :=  0; 
h:  Integer  :=  0; 


=  byte 

byte 

byte 

byte 

byte 

tyte 

tyte 

byte 

byte 

byte 

byte 


(15#2E#) 
16#3C#) 
16#3E#) 
16#2C#) 
16#3E#) 
16#3A#) 
ie#3D#) 
16#3F#) 
16#2A#) 

ie#5B#) 

16#5D# 


(1  ..3)  OF  byte; 


BEGIN 


— '■•'  PARSE  EILE  NAME  »:-- 

LOOP 

Keyin  (input); 
Outconsole  (input)? 
CASE  input  IS 

WHEN    1  than! gthan  Icorrma  1  semic!  colon! 
equal !qmark! star! IbracI rbrac 
=>    New_lins;    Put    ("INVALID.    TRY   AGAIN."); 
New_line; 
FOR   1    IN   1.  .k   LOOP 

Outconsole    (filename    (i)); 

END  loop; 


WHEN  period  =>  EXIT; 
WHEN  OTHERS 

=>    k    :=   k    +   i; 
filename    (k) 


=   input; 


END  case; 
EXIT  WHEN  k  =  e; 
END  loop; 


--'!=  MAX  FILE  NAME  LENGTH  '•■'— 
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I?   k  =   8  THEN 

Put  (■'."); 

END  if; 

— *  PARSE  FILE  TYPE  '^— 

LCOP 

Key in  (input ) ; 
Cutconsole  (input); 
CASE  input  IS 

W^EN  1  than  !g than  !coinma  !  semic  !  col  on ! 

equal  Iqmark:!  star  !ltrac!rtrac!  period 
=^  New_line;  Put  ("liMVALID.  TRY  AGAIN."); 
Mew_line; 
FOR  I  IN  1. .k  LOOP 

Outconsole  (filename  (i)); 

END  loop; 
Put  (".'■); 

FOR  J  IN  1. .h  LOOP 

Outconsole  (fch2.ft  (j)); 

END  loop; 

WHEN  OTHERS 

=>  h  :=  h  +  i; 

fct2.ft  (h)  :=  input; 

END  case; 

EXIT  ^HEN  h  =  2;   --'i'  MAX  FILE  TYPE  LENGTH  -— 

END  loop; 

--'^  PLACE  PARSED  INPUT  IN  FOB  ADDING  BLANKS  TO  FILL  UP   -■ 
— *  FIELDS  '^" 

fnlen  :=  k; 

FOR  i  IN  1. .8  LOOP 

fch2.fn    (i)    :=   filenarre    (i); 
IF   i    =   fnlen  THEN 

FOR   j    IN    (fnlen    +   1) . .8   LOOP 

fclD2.fn    (j)    :=   space; 
END   LOOP; 

exit; 
END  if; 
end  loop; 

New_line; 

— *  CAPITALIZE  FILE  NAME  AND  TYPE  *— 

FOR  i  IN  1. .fnlen  LOOP 

capital  :=  Integer  (fct2.fn  (i)); 
CASE  capital  IS 

VEEN  ie#61#. .16#7A#  =>  capital  :=  capital  -  16#20#; 


8b 


=>  null; 

IND  loop; 

capital  :-  J^^.!^^"^  ^t^l  -  16#2e#; 

^'^^^  ''.^U#6lJ   1-#7K#  =>  capital  :=  capital 

^KFN  ^lllll"^^         =>  null; 
i:4D  ioof; 

ENi:  Parse_cap; 
jNT?  y.ferfile;  ^^============== 


FACKAGI  messages  IS 
PROCEDURE  Talitmg' 
PROCEDURE  Listening. 

EMD  t^essages; 


VPH  Myas^lit,   fy^Jil.   Name'- 

UST   r.yasnllt,    Myutll.  M«#1A#);    -control   Z- 

.    nK^TANT   BYTI    :=   l^J"    (16#1A#)' 
max   irsg.lensth.    =^^=^^%t    :=  e«5 

lessage:   ^-^^V^l'l*    . 


;;nength:    Integer;, 
lini.length:    Integer, 

PKOCEEURI   TalVtlng   IS 

-    MiTHOR-    THOMAS   V.   WORKS 

::;  S  i^«<>;^f  ^Sf.KiNG  PRonPTS  "S^h  to  np^  m.ssag|         ,. 

.-»    description:      TALKING    1-K^^yPj,    ^^^  TRANSMITS 
--:   \irA'lll'lol   II  TsiNGLE   BLOCK. 

-^^  -  ^'^VAZ  i\ii  •=  '^r-  lief".!; 

Ctrl  5:  CONSTANT  BYTH  .    ^ 
response:  lyte; 
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EEGIN 
LOOP 

Clearscrn; 

Put  ("EEGIN  TYPING  r^ESSAGE.  USE  CTRL  Z  TO  STOP."); 

New  line; 

Put'C'MAXIMUM  MESSAGE  LENGTH  IS  1600  CHARACTERS."); 

New_line;  New_line; 

lir.i_length  :=  0; 

— *  TYPE  IN  PAGE  format;  20  LINES,  60  CHARACTERS   -  — 
—  *  PER  LINE       -  *— 

FOR  1  IN  l..rrax  msg_lengtla  LOOP 
Keyin  (inputj; 

EXIT  WHEN  input  =  end_of_msg; 
fnessage  (i)  :=  input; 
msg_length  :=  i; 
line_length  :=  line_length  +  i; 
Outconsole  (input);" 
IF  (input  =  retrn)  OR 

(line_length  =  mdx_l ine_length)  THEN 

New_line ; 

line_length  :=  0; 

END  if; 
END  loop; 

New_line; 

Put  ("END  OF  MESSAGE.");  New  line;  New_line; 

Put  ("TYPE  CTRL  S  TO  SEND.  ANY  OTHER  KEY  TO  RETYPE  "); 

Put  ("MESSAGE."];  New_line; 

Keyin  (response); 

IF  response  =  ctrl_5  THEN 

exit; 
END  if; 

Put  ("MESSAGE  ERASED.");  New_line; 

END  loop; 

New_line; 

Put  ("IF  YOU  WANT  TO  SEND  TO  THE  BULLETIN  BOARD,"); 

New  line; 

Put~("ENTER  24  FOR  DESTINATION  MACHINE."); 

New_line;  New_line; 

— *  PROMPT  USER  FOR  DESTINATION  AND  SOURCE  TERMINAL  #'5  -~ 

Enter_machine  (dest,  srre); 

~*  CREATE  CONNECTION  RECORD  ^^— 

connection. dest ination  :=  "byte  (dest); 
connection  .  source  :=  tyte  (srce); 
connection. process  :=  ctrl_m; 
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— '■■=  ESTA5LISH  CONNECTION  WITH  DESTINATION  -— 

Put  ("WAITINa.  .  .");  New_line;  New  line; 

Setup  (connection 'ACCRESS  ,  send_ready  ) ;  | 

IE  5end_ready  THEN 
IF  dest  =  0  THEN 

Put  ("for  BROADCAST,  PAUSE  TO  ALLOW  RECEIVER  TO  " 

Put  ("^ET  READY");  New_line; 

Put  ("PRESS  ANY  KEY  TO  SEND.  "); 

Keyin  (pause);  New  line;  New_line; 

END  if; 

Put  ("CONNECTION  ESTABLISHED,  SENDING  MESS.^GE...  "); 
New_line;  New_line; 

—'^    TRANSMIT  MESSAGE  AS  A  SINGLE  BLOCK  *~ 

Send_"bloc\c  (  message 'ADDRESS  ,  rr,sg_length  ) ; 
Yes; 

Put  ("message  SENT/M;  New  line; 
ELSE 

Put  ("MESSAGE  NOT  SENT.  DESTINATION  INACTIVE."); 
New_line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 
Keyin  (pause); 

END  Talking; 

PROCEDURE  Listening  IS 

— *!=  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  AUGUST  1986 

"■^   DESCRIPTION:   LISTENING  RECEIVES  TRANSMITTED  MESSAGE    -- 

— -*  AND  DISPLAYS  IT  IN  A  PAGE  FORMAT  OF  20  LINES,  80 

— *  CHARACTERS  PER  LINE. 

char:  tyte; 

BEGIN 

Clearscrn; 

Put  ("RECEIVING  MESSAGE...");  New_llne; 

— *  RECEIVE  ENTIRE  MESSAGE  * — 

Recv_'block  (message 'ADDRESS  ,  msg_length); 

Endrrsg; 

Put_int  (msg_length);  Put  ("  BYTES  RECEIVED.");  New_line 

— -  DISPLAY  IN  SAME  PAGE  FORMAT  AS  TYPED  -  — 

line  length  :=  ?; 


se 
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FOR  i  IN  0. . (msg_length  -  1)  LOOP 
cha  r  :=  message  ( i ) ; 
line_length  :=  line_ler.fs'th  +  i; 
Cutconscle  (char); 
IF  (char  =  retrn)  OR 

(line_length  =  maj_line_length )  THFN 

New_line; 

line_length  :=  05 

FND  if; 
IND  loop; 

New_line;  New_line; 
Put  ("FNT  OF  MESSAGJ.");  New_line; 
Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 
Keyin  (pause); 


ENC  Listening; 
IND  r^essages; 


PACKAGE  Directry  IS 

PROCEPUHE  Present  dir; 
PROCELURZ  Receive^dir; 

END  firectry; 


WITH  Xferfile,  ^yutil,  ^^yasr^lit,  Names; 
PACKAGE  PODY  Directry  IS 

USE  Xferfile,  Myutil,  Myasmlit,  Names; 


PROCEDURE  Present_dir  IS 

— -  AUTHOR:  THOMAS  V.  *ORKS 

--'■^  DATE:  AUGUST  1986 

— -  DESCRIPTION:   PRESENT_DIR  PROMPTS  THE  USER  FOR  THE 

— *  REQUESTED  DISK  DRIVE  AND  TRANSMITS  THE  DIRECTORY  EIGHT 

— *  ENTRIES  AT  A  TIME  (128  BYTES)  UNTIL  THE  ENTIRE 

— -  DIRECTORY  IS  SEMT . 

nodir_str:  STRING  :=  "NO  DIRECTORY  ON  SELECTED  DRIVE."; 

dir_size:  CONSTANT  :=  16; 

count:  Integer; 

ctrl_d:  CONSTANT  BYTE  :=  tyte  (16#04#); 

qmark:  CONSTANT  BYTE  :=  lyte  (16#3F#); 

TYPE  tuff  IS  ARRAY  (1..128)  OF  tyte; 

tuffer:  tuff; 

dir  addr:  Integer; 
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Clearscrn; 
fctl.dr  :=  tyte(eM 
fcbl.ex  :=  ^.718(0)  ; 
Reset_disk; 

--':=  WILD  CARD  FOR  MATCHING  ENTIRE  DIRECTORY  -  — 

ECR    i    IN    1.  .8    LOOF 

fctl.fn    (i)    :=    qrrark; 

END  loop; 

FOR    i    IN    1. .3    LOOP 

fctl.f t    (i)    :=   qrrarfe; 

END  loop; 

New_line ; 

---  PROMPT  USER  FOR  DISK  DRIVE  ^— 

Drive_select  (drive); 
New_line; 

~-  PROMPT  USER  FOR  DESTINATION  AND  SOURCE  TERMINAL  #'s 

Enter_rnachine  (dest,  srce); 

— -  CREATE  CONNECTION  RECORD  ''—  | 

connection .destination  :=  tyte  (dest); 
connection . source  :-  tyte  (srce); 
connection. process  :=  ctrl_d; 

---  ESTABLISH  CCNNECTICN  WITH  DESTINATION  *—  I 

Put  ("WAITING...");  New_line;  New_line; 
Setup  (connection'ADDRFSS ,  send_ready); 
IF  send_ready  THEN 
IF  dest  =  0  THEN 

Put  ("FOR  BROADCAST,  PAUSE  TO  ALLOW  RECEIVER  TO  ") 

Put  ("GET  READY");  New_line; 

Put  ("PRESS  ANY  KEY  TO  SEND.  "); 

Keyin  (pause);  New  line;  New_line; 

END  if; 

Put  ("CONNECTION  ESTABLISHED,  SENDING  DIRECTORY  "); 

Put  ("FROM  DRIVE  "); 

Outconsole  (drive);  Put  ("  ...  ");  New_line;  New_line 

— *  SET  DMA  TO  ADDRESS  OF   DATA  STRUCTURE  THAT     '^  — 
— -  WILL  HOLD  DIRECTORY  ENTRIES  -— 

Set_DMA  (tuf fer'ADDRESS) ; 
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---  TRANS r^ IT  DRIVE  -— 

Driveout  (drive )  ; 

— -  MAKI  FIRST  riRECTORY  ^ATCH  -  — 

Search_first  ( f ctl  '  ATERESS ,  tuffer 'ADDRESS  ,  code, 

dir_addr  )  > 
IE  cede  =  255  TEEN 

~-^'  NO  MATCH.  TRAMS!^IT  NC  DIRECTORY  STRING  =■=  — 

Put_str  (nodir_str);  New  line; 
Mo; 

Send_strir.g  (nodir_str); 
End_tlock; 
Yes; 
ELSE 

— *  TRANSMIT  DIRECTORY  ENTRY  - — 

No; 

Send_dir  (dir_addr,  dir_size); 
count  :=  i; 
LOOP 
LOOP 

--'^  MAKE  SUCCESSIVE  MATCHES  UNTIL  IND     - 
— -  OF  DIRECTORY  (CODE  =  255)  - 

Search_next  (fcbl 'ADDRESS .  tuff er 'ADDRESS , 

code ,  dir_addr) ; 
EXIT  WREN  code  =  255; 

~*  TRANSMIT  8  ENTRIES  PER  BLOCK  --- 

Send_dir  (dir_addr,  dir_5ize); 
count  :=  count  +  i; 
IF  count  =  8  THEN 
count  :=  0; 

exit; 
END  if; 
END  loop; 

IF  code  =  255  THEN 
No; 
End  block; 

exit; 
END  if; 

End_'block; 

No; 
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PAUSE  AFTER  EACH  BLOCK  FOR  BROADCAST 


IF  dest  =  ^  THEM 

Put  ("BROADCAST,  PRESS  ANY  K^Y  TO  SENT.  ") 
Keyin  (pause);  New  line; 

END  if; 
END  loop; 

Yes; 

END  if; 

Put  ("DIRECTORY  SENT."!;  New_line; 
ELSE 

Put  ("DIRECTORY  NOT  SENT.  DESTINATION  INACTIVE.";; 
New  line; 

END  if; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 
Keyin  ( pause) ; 


END  Present  dir; 


PROCEDURE  Receive_dir  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 

~*  DATE:  AUGUST  1986 

— «  DESCRIPTION:   RECEIVE_DIR  PROMPTS  THE  USER  FOR  THE  *■ 

~*  FILE  NAME  AND  TYPE  IN  WHICH  HE  WISHES  TO  STORE  ENTRIES  *■ 

~-  RECEIVED.   USER  CAN  SELECT  WHICH  BLOCK(S)  OF  8  ENTRIES  -■ 

~*  HE  WISHES  TO  SAVE,  WHICH  ARE  THEN  WRITTEN  TO  DISK.  -■ 

choice:  tyte; 

rtytes:  integer  :=  0; 

length:  Integer; 

finished:  Boolean  :=  false; 

If :  Integer; 

start,  fini:  Integer; 

period:  CONSTANT  BYTE  :=  tyte  (16#2E#); 

no:  CONSTANT  BYTE  :=  tyte  (15#6E#); 

BEGIN 

Clearscrn; 

--*  SET  FCB  FOR  FILE  OPERATIONS  -  — 

fctl.dr  :=  byte(0) ; 
fctl.ex  :=  tyte(0) ; 
Reset_disk; 

~-  PROMPT  USER  FOR  DISK  DRIVE  *— 

New_line; 

Drive  select  (drive); 
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New_line; 

— *  PROMPT  USER  FOR  7111    NAME  AND  TYPE  -~ 

Put  ("ENTER  FILE  NAME  TO  STORE  YOUR  DIRECTORY."); 

New_line; 

LOOP 

Put  ("FN. FT:  ") ; 

Parse_cap  (fctl,  fn_length); 

New  line; 

Put"("FILE  "); 

Outconsole  ( drive) ; 

Put  ("•")* 

FOR  i  IN  1.  .fn  length  LOOP 
Outconsole  Tfcbl.fn  (i)  ) ; 

END  loop; 
Put  ("."); 

FOR  i  IN  1. .3  LOOP 

Outconsole  (fctl.ft  (i)  ); 

END  loop; 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM,  "); 

New  line; 

Put" ("any  other  key  to  RESELECT."); 

Key  in  (confirm); 

New  line; 

IF  confirr"  =  retrn  THEN 

exit; 
END  if; 

Put  ("entry  CANCELLED.  REENTER  FN:FT.");  New_line; 
New  line; 

END  loop; 

Delete  file  ( fctl  '  ADDRESS  ,  code); 
Create"file  (fctl 'ADDRESS ,  code); 
fctl.cr  :=  byte  (0); 

— 'i^  SET  DMA  TO  ADDRESS  OF   DATA  STRUCTURE  THAT  WILL 
— *  HOLD  DATA  RECEIVED  FROM  SOURCE 

Set_DMA  (tlock'ADDRESS); 

Clearscrn; 

IF  code  =  255  THEN 

Put  ("DIRECTORY  SPACE  UNAVAILABLE."); 
ELSE 

Put  ("FILE  "); 

Outconsole  (drive); 

Put  (":"); 

FOR  i  IN  1.  .fn_length  LOOP 
Outconsole  (fcbl.fn  (i)  ); 

END  loop; 
Put  ("."); 

FOR  i  in  1. .3  LOOP 


Outconsole  (fctl.ft  (i)  ); 

liNiD  loop; 

Put  ("  IS  OPENED.";;  New_line; 

— *  RECEIVE  ERIVE  OF  IMCOMING  DIRECTORY  -— 

Drivein  ( drive  ) ; 

Put  ("RECEIVING  DIRECTORY  FRO^"  DRIVE  "); 

Outconsole  (drive);  Put  ("  OF  SENDING  MACHINE..."); 

New  line;  New_line; 

LOOP 

--'!*  RECEIVE  IN  128  BYTE  BLOCKS  (8  ENTRIES) 
---  UNTIL  END  OF  DIRECTORY 

Erdfile  (finished); 

EXIT  WHEN  finished; 

Recv  block  ( tlock 'ADDRESS  ,  length); 

IF  tlock  (1)  /=  tyte  (0)  THIN 

—^    NO  ^^ATCHES.  DISPLAY  NO  DIRECTORY  STRING  -- 

FOR    i    IN    1..2e    LOOP 

Outconsole    (Hock    (i)); 

END  loop; 

New_line; 
ELSE 

— -  FORMAT  EACH  8  DIRECTORY  ENTRIES  FOR      '' 
--■^   DISPLAY  - 

start  :=  i;  fini  :=  16; 
FOR  i  IN  l..e  LOOP 

FOR  j  IN  start,  .fini  LOOP 

EXIT  WHEN  "block  (start)  =  no; 
IF  j  =  (start  +  9)  THEN 
Outconsole  (period); 

END  if; 

IF  j  >  (start  +  11)  THEN 

block  (j)  :=  space; 

Outconsole  (block  (J)); 
ELSE 

Outconsole  (block  (j)); 

END  if; 
END  loop; 

if  i  =  4  THEN 
New_line; 

END  if; 

start  :=  start  +  16;  fini  :=  fini  +  16; 

END  loop; 

New  line; 

END  if; 
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New_liae;  New  line; 

Put  ("PRESS  ESTUEN  IF  YOU  ^ K^H    TO  SAVF  ON  FILF."'); 
Keyin  (choice); 
New_liae;  New_line; 

— '!'  WRITE  TO  nSK  ONLY  USER'S  CHOICES  -  — 

IF  choice  =  retrn  THEN 

Vrite_seq  ( fell 'ADDRESS ,  code); 

END  if; 
END  loop; 

New_line;  New_line; 

IF  code  =  1   THEN 

Put  ("ERROR.  NO  AVAILABLE  DIRECTORY  SPACE."); 

New  line; 
ELSIF  code  =  2  THEN 

Put  ("ERROR.  DISK  FULL.");  New_line; 
ELSE 

Put  ("FINISHED  WRITING  FILE.");  New_li!ie;  New_line; 

END  if; 

Close_file  (fcbl 'ADDRESS ,  code); 

ENID  if; 

New_line; 

Put  ("PRESS  ANY  KEY  TO  CONTINUE.  "); 

Keyin  (pause) ; 


END  Receive_dir; 
END  Directry; 


PACKAGE  Who  IS 

PROCEDURE  Whos_there; 
END  Who; 


WITH  Myasmlit,  f^yutil.  Names; 
PACKAGE  lODY  Who  IS 

USE  ^yasmlib,  Myutil,  Narres; 

PROCEDURE  Whos_there    IS 

~*   AUTHOR:    THOMAS    V.    WORKS 

--'^    DATE:    SEPTEMBER   1986 

— *    DESCRIPTION;      WHOS_THERE  RECEIVES    NET    STATUS    FROM   THE 

— -^  CONCENTRATOR. 
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mechno:  CONSTANT  :=  24; 

whos_on:  ARRAY  (l..rrachno)  OF  tyte; 

aumber_on:  Integer; 

ctrl_w:  CONSTANT  BYTE  :=  tyte  (15#17#); 

BEGIN 

Clearscrnl 

Put  ("FOR  NET  STATUS,  FNTlvR  YOUR  MACHINE  #  FOR  "); 

Put  ("EFSTINATION.") ;  New_line;  New_line; 

--*  PROMPT  USER  FOR  SOURCE  TERMINAL  #  -— 

Enter_nrachine  (dest,  srce); 

— ^'  CREATE  CONNECTION  RECORD  -— 

c cnnection . source  :=  tyte  (srce); 
connection. dest inat ion  :=  tyte  (dest); 
connection .process  :=  ctrl_w; 

— *  ESTABLISH  CONNECTION  WITH  DESTINATION  '-— 

Setup  (connection 'ADDRESS ,  send_reddy); 

— »:=  RECEIVE  NET  STATUS  AS  A  SINGLE  BLOCK  *  — 

Recv_tlock  ( whos_on'ADDRESS  ,  numter_on); 

— *  DISPLAY  CURRENTLY  ACTIVE  TERMINAL  #'s  -  — 

Put  ("THE  FOLLOWING  NUMBERED  MACHINES  ARE  CURFENTLY  "); 
Put  ("ACTIVE:");  New_line; 
FOR  i  IN  l..numter_cn  LOOP 

Put  int  (Integer  (whos_on  (i)));  New_line; 

END  loop; 

END   Whos_there; 
END   Who; 


PACKAGE  Bulltrd  IS 

PROCEDURE  Recv_tulletin; 
END  Bulltrd; 
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WITH  Myasmlib,  Xferfile,  Myutil,  Names; 
PACKAGE  EOry  Bullbrd  IS 

USE  r^yastrlib,  Xferfile,  r^yutil,  Narres; 

PROCICURE  Recv_tulletin  IS 

--'•■    AUTHOR :  THOMAS  V.  WORKS 

~*  EATI:  SEPTEMBER  1986 

— ':-  DESCRIPTION:   REC  V_PULLET  IN  PROMPT  USER  FOR  PILE  NA^E   -~ 

— ■-■'  AND  TYPE  IN  WHICH  HE  WISHES  TO  STORE  MESSAGES  RECEIVED  -~ 

— *  FROM  THE  BULLETIN  BOARD,  OPENS  THE  FILE,  RECEIVES  DATA  '•'— 

— *  IN  126  BYTE  BLOCKS,  AND  WRITES  TO  DISK  THE  RECEIVED     -~ 

--■^    DATA.  =— - 

recv_'b:  CONSTANT  BYTE  :=  lyte  {16#02#); 

BEGIN 

Clearscrn; 

Put  ("TO  RECEIVE  BULLETIN  BOARD,  ENTER  24  FOR  " ) ; 

Put  ("DESTINATION  MACHINE.");  New_line; 

Enter_rrachine  (dest,  srce); 

~*  CREATE  CONNECTION  RECORD  ':=  — 

connec tion . source  :=  tyte  (srce); 
ccnnec  tion. destination  :=  "byte  (dest); 
connecti  on  .process  :=  recv_'b; 

— '■'=  ESTABLISH  CONNECTION  WITH  BULLETIN  BOARD  =''-- 

Put  ("WAITING...");  New_line;  New_line; 
Setup  (connection 'ADDRESS ,  send_ready); 
IF  send  ready  THEN 

Put  r"CONNECTION  ESTABLISHED.  READY  TO  RECEIVE  "); 

Put  ("bulletin  BOARD.");  New_line;  New_line; 

~*  receive  MESSAGES  FROM  BULLETIN  BOARD  AND       ':=— 
--'•'    STORE  ON  FILE  -~ 

Receivefile; 

Put  ("BULLETIN  BOARD  RECEIVED.");  New_line; 
EL  SE 

Put  ("BULLETIN  BOARD  INACTIVE.");  New_line; 

END  if; 

Put  ("PRESS  AMY  KEY  TO  CONTINUE."); 
Keyin  (pause); 

END  Recv_'bulletin; 

END  Bulltrd; 
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p/^CKAGE  Myutil  IS 

PROCEEURE  Put  int  (output:  IN  Integer); 

PROCEDURE  Clearscrn; 

PROCEDURE  Enter_marhine  (machdest:  OUT  Integer; 

machsrce:  OUT  Integer); 

PROCEDURE  Drive  select  (d_drive:  OUT  tyte); 
END  Myutil; 


WITH  Myasmlib,  Names; 

PACKAGE  BODY  Myutil  IS 
USE  Myasmlit,  Names; 

PROCEDURE  Put_int  (output:  IN  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  JUNE  1986 

— '■•*  DESCRIPTION:   PUT  INT  DISPLAYS  INTEGER  VALUES  BY        - 

— *  SEPARATING  THE  MOST  SIGNIFICANT  DIGIT  AND  DISPLAYING    *- 

— *  IT  UNTIL  THERE  ARE  NO  MORE  DIGITS.  '^-^ 

max:  Integer  :=  10000; 
count:  Integer  :=  0; 
zero  ctr:  Integer  :=  i; 
tempi,  terrp2:  Integer; 

BEGIN 

tempi  :=  output ; 
IE  tempi  <  0  THEN 

Put  ("-");  ~*  NEGATIVE  NUMBER  *— 

END  if; 

IF  tempi  =  0  THEN 

Put  ("0"); 
ELSE 

WHILE  max  /=  0  LOOP 
LOOP 

— *  REMOVE  MOST  SIGNIFICANT  DIGIT  ''■^— 

temp2  :=  tempi/max; 
tempi  :=  tempi  REM  max; 
count  :=  count  +  i; 

— *  REMOVE  LEADING  ZEROS  »— 

IF  (count  =  zero_ctr)  AND  (temp2  =  0)  THEN 
zero_ctr  :=  zero_ctr  +  i; 
max  : =  max/10  ; 
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exit; 
END  if; 

—'^   DISPLAY  MOST  SIGNIFICANT  DIGIT  -~ 

My_put  (temp2); 
max  :=  max/10; 
IF  max  =  0  THEN 

exit; 
END  if; 
END  loop; 

~*  UNTIL  THERE  ARE  NO  MORE  DIGITS  -— 

END  loop; 
END  if; 


END  Put  int; 


PROCEDURE  Clearscrn  IS 

~*  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  SEPTEMBER  1986 

— '^  DESCRIPTION:   CLEARSCRN  DISPLAYS  THE  CLEAR  SCREEN       '- 

~-  CODES  CAUSING  TEE  SCREEN  TO  BE  CLEARED.  ='^- 

escape:  CONSTANT  BYTE  :=  by te ( 16#1B# ) ; 
clrscn:  CONSTANT  BYTE  :=  ty te ( 16#45# ) ; 

BEGIN 

Outconsole  (escape); 
Outconsole  (rlrscn); 
New_line;  New_line; 

END  Clearscrn; 


PROCEDURE  Enter_iTiachine  (machdest:  CUT  Integer; 

machsrce:  OUT  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 

~*  DATE:  AUGUST  1986 

— *  DESCRIPTION:   ENTER  MACHINE  PROMPTS  USER  FOR  SOURCE  '^  — 

— *  AND  DESTINATION  TERMINAL  NUMBERS  AS  A  TWO  DIGIT  '^-- 

--*  NUMBER  AND  THEN  CONVERTS  IT  TO  THE  APPROPRIATE  BYTE  --- 

~-  EQUIVALENT .  -  — 


machine:  ARRAY  (1..3)  OF  tyte; 
tempi,  temp2:  Integer; 
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BIGIM 

Put  ("ENTER  DESTINATION  MACHINE  (01, 02.. 24)  OR  "); 
Put  ("broadcast  (00)  "^;  New_line; 
Put  ("followed  by  return.");  New  line; 
LOOP 

Put  ("NOTE:  BE  SURE  TO  ADD  LEADING  ZERO.");  New_line 

— -  CONVERT  TWO  DIGIT  KEYBOARD  INPUT  INTO  BYTE 

--';*  EQUIVALENT  FOR  DESTINATION  TERMINAL  - 

FOR  i  IN  1..3  LOOP 
Keyin  (input); 
IE  input  =  retrn  THEN 

rrachine  (i)  :=  byte  (16#30#); 

exit; 

ELSE 

rrachine    (i)    :=   input; 

END  if; 
END  loop; 

Put  ("MACHINE  NUMBER  "); 
FOR  i  IN  1..3  loop 

Outconsole  (machine  (i)); 

END  loop; 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONFIRM."); 
New_line; 
Keyin  (confirm); 
New_line; 

IF  confirm  =  retrn  THEN 
EXIT; 

END  if; 

Put  ("ENTRY  CANCELLED.");  New_line; 
New_line; 

END  loop; 

tempi  :=  Integer  (machine  (1))  -  16#30#; 
temp2  :=  Integer  (machine  (2))  -  16#30#; 
machdest  ;=  tempi  »!«  10  +  temp2; 

LOOP 

Put  ("ENTER  YOUR  MACHINE.  NOTE:  BE  SURE  TO  ADD  "); 
Put  ("LEADING  ZERO.");  New_line; 

— *  DITTO  FOR  SOURCE  TERMINAL  * — 

FOR  i  IN  1..3  LOOP 
Keyin  (input); 
IF  input  =  retrn  THEN 

machine  (i)  :=  hyte  (16#30#); 

exit; 

ELSE 

machine  (i)  :=  input; 

END  if; 
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ENC  loop; 


); 


Put    ("MACHINE    NUMBER    " 
FOR    i    IN    1..3    LOOP 

Outconsole    (rracbine 

END  loop; 

Put  ("  IS  SELECTED.  PRESS 

New_line; 

Keyin  (confirm ) ; 

New_line; 

IF  confirm  =  retrn  THEN 

exit; 
END  if; 

Put  ("ENTRY  CANCELLED.") ; 
New  line; 

END  loop; 

tempi  :=  Integer  (machine  (1))  - 
temp2  :=  Integer  (machine  (2))  - 
machsrce  :=  tempi  '^   10  +  temp2; 


(i)); 

RETURN  TO  CONFIRM.") ; 


New  line; 


ie#30#; 

16#30#; 


END  Enter  machine; 


PROCEDURE  Drive_select  (d_drive:  CUT  hyte)  IS 

~*  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  SEPTEMBER  1986 

— -  DESCRIPTION:   DRIVE  SELECT  PROMPTS  USER  FOR  SELECTED 

~'^  DISK  DRIVE  AND  PASSES  INPUT  TO  OPERATING  SYSTEM. 


disk  drive:  Integer; 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


byte 
byte 
byte 
byte 
byte 


(16#41#) 
(16#42#) 
(16#43#) 
(16#44#) 
(16#45#) 


--'^  LOWER  CASE  *— 


sa: 
sb: 
so: 
sd: 
se: 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


byte 
byte 
byte 
byte 
byte 


(16#61#); 

(16#62#); 
(16#63#); 
(16#64#)r 

(I6#e5#); 


BEGIN 
LOOP 

Put  ("select  DRIVE: 
Keyin  (d  drive ) ; 
New  line? 


B,  C,  D,  E.") 
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Put  ("erivz  "); 

Outconsole  (d_drive); 

Put  ("  IS  SELECTED.  PRESS  RETURN  TO  CONEIR^,  "); 

New  line; 

Put'C'ANY  OTHER  KEY  TO  RESELECT."); 

Keyin  (confirm); 

New  line; 

IF  confirm  =  retrn  THEN 

exit; 
END  ii; 

Put  ('ENTRY  CANCELLED.");  New_line; 
New  line; 

END  loop; 


CASE  d  drive  IS 
WHEN  A  !  sa   => 

disk_drive  :=  0 
WHEN  B  f  sb  => 

di5k_drive  :=  1 
WHEN  C  I  sc   => 

disk_drive  :=  2 
WHEN  D  !  sd   => 

dislc  drive  :=  3 
WHEN  E  !  se   =>  ~ 

di  s^   drive  : =  4 


Select_di5ic  (disk_drive 

Select_disic  (disk_drive- 

Select_disk:  (di5lc_drive' 

Select_disk  (disk_drive 

Select  disk  (disk  drive 


WHEN  OTHERS  => 

Put  ("INVALID  DRIVE.  DEFAULT  IS  A:"); 

New_line; 

disk_drive  :=  0;  Select_dislc  (disk  drive 

END  case; 

New  line; 


END  Drive_select; 
END  Myutii; 


PACKAGE  Myasmlit  IS 

PROCEDURE  Create_file  (address:  IN  Integer; 

result:  CUT  Integer); 
PROCEDURE  Close_file  (address:  IN  Integer; 

result:  OUT  Integer); 
PROCEDURE  Open_file  (address:  IN  Integer;  result:  OUT  Integer!' 
PROCEDURE  Read_seq  (address:  IN  Integer;  result:  OUT  Integer);, 
PROCEDURE  Write  seq  (address:  IN  Integer;  result:  OUT  Integer' 
PROCEDURE  Set_DRA  (dma:  IN  Integer); 
PROCEDURE  Delete  file  (address:  IN  Integer; 

result:  OUT  Integer); 
PROCEDURE  Select  disk  (disk:  IN  Integer); 
PROCEDURE  Reset_disk; 
PROCEDURE  Keyin  (inchar  :  OUT  tyte); 
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PROCIDURE  Outconsole  (outchar  :  IN  byte); 

PROCEDURE  Send_'bloclc  (address:  IN  Integer;  size:  IN  Inte^-er); 

PROCEDURE  Yes; 

PROCEDURE  No; 

PROCEDURE  Recv_'block  (address:  IN  Integer;  len:  OUT  Integer); 

PROCEDURE  Endfile  (finish:  CUT  Boolean); 

PROCEDURE  Active; 

PROCEDURE  Waiting  (stat:  CUT  >yte); 

PROCEDURE  Setup  (addr:  IN  Integer;  rdy:  OUT  Poclean); 

PROCEDURE  t^y_put  (inval:  IN  Integer); 

PROCEDURE  Put_str  (str:  IN  STRING); 

PROCEDURE  Endmsg; 

PROCEDURE  Search_first  (address:  IN  Integer;  buff:  IN  Integer; 

result:  OUT  Integer;  addr:  OUT  Integer.; 
PROCEDURE  Search_next  (address:  IN  Integer;  buff:  IN  Integer; 

result:  OUT  Integer;  addr:  OUT  Integer); 
PROCEDURE  End_tlock; 

PROCEDURE  Send_5tring  (str:  IN  STRING); 

PROCEDURE  Send_dir  (dirad:  IN  Integer;  size:  IN  Integer); 
PROCEDURE  Driveout  (driv:  IN  byte); 
PROCEDURE  Drivein  (driv:  OUT  byte); 
PROCEDURE  Off; 
END  Myasmlib; 


PACKAGE  ASSEMBLY  Myasmlib 

Jmp  main 

PROC   Create_file; 

— *  AUTHOR:  THOMAS  V.  WORKS 

— ^  DATE:  JUNE  1986 

— *  DESCRIPTION:   CREATE  FILE  CREATES  A  FILE  SPECIFIED  BY   '^■ 

— *  THE  FCB  USING  CP/M-66  FUNCTION  #22.  ='^- 

cr_code  equ   16h 

pop   ax  ;return   address 

pop   si  ;code    address 

pop   dx  ;FCB   address 

push  dx  ;restore   stack 

push   si 

push   ax 

rrov   d,    cr_code 

int   224 

rrov    [si]  ,    al 

ret 

END  PROC  Create  file; 
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FROC  Close_file; 

—'^  AUTHOR:  THOMAS  V.  WORKS 

--*  EATE:  JUNI  1986 

— *  CESCRIPTION:   CLOSF_FILE  CLOSES  A  FILE  SPECIFIED  BY     '' 

— *  THE  FOB  USING  CP/M-e6  FUNCTION  #16.  - 

cf_code      equ  10h 

pop  dx  ;return  address 

pop  si  Jcode  address 

pop  dx  ;FCB  address 

push  dx  Jrestore  stack 

push  si 

push  ax 

mov  cl ,  cf  code 

int  224 

mov  [si] ,  al 

ret 

END  PROC  Close_file; 

PROG  Open_file; 

~*  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  JUNE  1986 

— *  DESCRIPTION:   OPEN  FILE  OPENS  A  FILE  SPECIFIED  BY  THE   - 

— *  FCB  USING  CP/M-ee  FUNCTION  #15.  ':'- 

of_code      equ  0fh 

pop  ax  Jreturn  address 

pop  si  ;code  address 

pop  dx  ;FCB  address 

push  dx  irestore  stack 

push  si 

push  ax 

mov  cl,  of_code 

int  224 

mov  [si]  ♦  al 

ret 

END  PROC  Open_file; 

PROC  Read_seqi 

— *  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  JUNE  1986 

— *  DESCRIPTION:   READ_SEO  READS  SEQUENTIAL  128  BYTE       '-:'■ 

~*  RECORDS  FROM  THE  FILE  SPECIFIED  BY  THE  FCB  USING       *■ 

— *  CP/M-ee  FUNCTION  #20.  *■ 
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rs_code      equ  14h 

pop  ax  Jreturn  address 

pop  si  ;code  address 

pop  dx  ;FCB  address 

push  dx  ;restore  stack 

push  si 

push  ax 

mov  cl ,  rs_c ode 

in t  224 

mov  [si] ,  ax 

ret 

END  PROC  Read_seq; 

PROC  Vrite_seq; 

--"•'   AUTHOR:  THOMAS  V.  WC^KS 

— *  EATE:  JUNE  1986 

~-  DESCRIPTION:   WRITE_SEQ  WRITES  SEQUENTIAL  128  BYTE     *■ 

~*  RECORDS  TO  THE  FILE  SPECIFIED  BY  THE  ECB  USING  CP/M-86  *■ 

— *  FUNCTION  #21.  '■^^ 

ws_code      equ  15h 

pop  ax  ireturn  address 

pop  si  Icode  address 

pop  dx  ;FCB  address 

push  dx  jrestore  stack 

push  si 

push  ax 

mov  cl  ,  ws  code 

int  224 

mov  [si]  ,  ax 

ret 

END  PROC  Write_seq; 

PROC  Set  DMA; 


— -  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  JUNE  1986 

— *  DESCRIPTION:   SET_DMA  SETS  THE  DMA  TO  THE  SPECIFIED     *~ 

— *  ADDRESS  USING  CP/M-86  FUNCTION  #26.  "•'-- 

sdm_code      equ  lah 

pop  ax  Ireturn  address 

pop  dx  ;DMA  address 

push  ax  Jrestore  stack 
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mov  cl ,  sdm_code 

int  224 

ret 


END  PROC  Set  EMA; 


FROC  Delete_file; 

— '!=  AUTHOR:  lEOfkS    V.  WORKS 

~*  DATI:  JUNI  1986 

— -  DISCRIPTION:   DILETE  FILE  DELETES  THE  FILE  SPECIFIED 

— *  RY  THE  FCB  USING  CP/P-66  FUNCTION  #19. 


:;e_, 


Jreturn  address 
Jcode  address 
;FCB  address 
Jrestore  stack 


df_code      equ  13h 

pop  ax 

pop  si 

pop  dx 

push  dx 

push  si 

push  ax 

mov  cl,  df_code 

int  224 

mov  [sil ♦  al 

ret 

END  PROC  Delete_file; 

PROC  Select  disk; 


~*  AUTHOR:  THOr^AS  V.  WORKS 

--'^  DATE:  JULT  1986 

— '^  DESCRIPTION:   SELECT_DISK  DESIGNATES  THE  DEFAULT  DISK 

---^    DRIVE  FOR  SUBSEQUENT  FILE  OPERATIONS  USING  CP/M-86 

~*  FUNCTION  #14. 


sd  code 


equ  0eh 

pop  ax 
pop  dx 
push  ax 
mov  cl,  sd 
int  224 
ret 


Jreturn  address 
;disk  drive  value 
Jrestore  stack 


code 


END  PROC  Select_disk; 

PROC  Reset_disk; 

— *  AUTHOR:  THOMAS  V.  WORKS 

---'^  DATI:  JTJLY  1986 

— *  DESCRIPTION:   RESET  DISK  RESETS  ALL  DISK  DRIVES  TO      '='- 
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— '^  REAL/WRITE  AND  SFT  THE  A  DISK  AS  THE  DEFAULT  DISK  FCR  '^  — 
— '^  ALL  SUBSIOUENT  FILE  OPERATIONS  USING  CP/M-66  FUNCTION  --- 
— *  #13.  -  — 

rd_code     equ  0dh 

mov  cl ,  rd  c  ode 
int  224 

ret 

END   FROG   Reset_dislc; 

FROC    Keyin; 

—'■'   AUTHOR:  THOr^AS  V.  WORKS 

— *  DATE:  APRIL  1985 

--^'    DESCRIPTION:   KEYIN  OBTAINS  INPUT  FROM  THE  KEYBOARD     -~ 

— -  USING  CP/^'-66  FUNCTION  #06.  *~ 

status_code     equ  0ffh 
dirio_code      equ  06h 
conout_code     equ  02h 

top  ax  Jreturn  address 

pop  di  ;output  address 

push  di  ;re5tore  stack 

push  ax 
nokey:    rrov  cl ,  dirlo_code 
mov  dl ,  status  code 
int  224 

cmp  al,  0  ;if  zero,  no  input  from  keyboard 

jz  nckey 

mov  [dij ,  al  ;store  value  from  keyboard 

ret 

END  FROC  Keyin; 
PROC  Cutconsole; 

— *  AUTHOR:  THOMAS  V.  WORKS 

— -  DATE:  APRIL  1986 

~*  DESCRIPTION:   OUTCONSOLE  DISPLAYS  OUTPUT  TO  THE        *— 

—^    CONSOLE  DEVICE  USING  CP/M-86  FUNCTION  #02.  *-- 

;return  address 

;value  to  be  output  to  console 
^restore  stack 
code 


p  op  bx 

pop  ax 

push  bx 

mov  cl. 

conout 

mov  dl , 

al 

int  224 

ret 

ENT  PROC  Outconsole; 
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PROC    Send    Hock; 


— * 

^ 

^ 

>;c 

— « 
— >{« 


AUTHOR:  THO^^AS  V.  WORKS 
DATE:  AUGUST  1986 

DESCRIPTION:  SEND_BLOCK  TRANSMITS  A  BLOCK  OF  DATA,  -- 
SEQUENTIALLY  ONE  BYTE  AT  A  TIME  VIA  THE  MODEM  PORT.  -■ 
EACH  BYTE  SENT  IS  ERROR  CHECKED  BY  IMMEDIATE  ECHO.  THE  '- 
ADDRESS  AND  THE  LENGTH  OE  THE  DATA  BLOCK  TO  BE 
TRANSMITTED  ARE  INPUT  PARAMETERS.  A  SEQUENCE  OF  FOUR  '='• 
BLOCK  CODES  (OFFh)  INDICATING  END  OF  BLOCK  ARE  SENT 
AFTER  THE  DATA.  -■ 


ctr  equ  03h 

io_port  equ  0ECh 

recv_rdy  equ02h 

error_code  equ  0EFh 

tlocV:_code  equ  0FFh 

5tatus_port  equ  0EDh 


pop  ax 
pop  Ix 
pop  si 
push  ax 


Jreturn  address 
;ien^th  of  data  structure 
fdata  structure  address 
;restore  stack 


loopt: 


loopa: 


mov 
rrov 
mov 
out 
inc 
in 


ch. 
dl. 

al, 
dx , 
dx 
al. 


4 

[si] 
al 

dx 


and  al ,  recv_rdy 
jz  loopa 
dec  dx 
in  al,  dx 


cmp 
jnz 
inc 
dec 
jnz 


al.  [si] 

errorl 

si 

tx 

looptt 

over 


errorl:   mov  al ,  error_code 

out  dx,  al 
inc  dx 
loopd:    in  al,  dx 

and  al  ,  recv_rdy 
jz  loopd 
dec  dx 
in  al ,  dx 

cmp   al ,   error_code 


;block_code   counter 

;send    out    char 

;  sta tport 
Jwait  for  echo 


Jdataport 
;get  echo 
Jcheck  for  error 

Jget  new  char 

;decrement  length 

;do  again  until  length  =  0 


;tell  receiver  error  in 
; transmission 

;  statport 
;wait  for  echo 


;dataport 
;check  to  see 
;  received 


if  error  code  wa' 
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jnz  errorl 
errorS:   mov  al ,  error_ccde 

out  dx,  al 

inc  dx 
loopd2:   in  al,  dx 

and  al  ,  recv_rdy 

jz  loopd2 

dec  dx 

in  al,  dx 

cmp   al ,    error_code 
jnz   errcrS 
jrnp    loopt 

over:  mov   al ,    blcck_code 

out   dx,    al 

inc  dx 
loopc:    in  al ,  dx 

and  al ,  recv_rdy 

jz  loopc 

dec  dx 

in  al ,  dx 

cmp   al ,    block_code 

jnz  error3 

dec  ch 

jnz  over 

ret 


»if  not,  retransmit  error  code 
Isend  second  error  code 

;  statport 
;wait  for  echo 


;dataport 

;checlc   to   see   if   error   code   was 

;  received 

Jif  not,  retransmit  error  code 
jretransmit  char 

;tell  receiver  end  of  block 

;  s  ta tport 
;wait  for  echo 


Jdataport 
;get  echo 
;check  for  error 

;send  out  next  hlock  code 
;until  four  are  sent  out 
;done 


errorS:   mov  al ,  block_ccde 

out  dx,  al 

inc  dx 

jrnp  loopc 


Jretransmit 
;statport 
;check  again 


END  FROC  Send  tlock; 


PROC  Yes; 

— *  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  AUGUST  1986 

—''    DISCRIPTION:   YIS  TRANSMITS  A  SIQUINCE  OF  FOUR  YES 

— *  CODES  (011h)  INDICATING  END  OF  PROCESS. 


yes_code 


equ  0Flh 


more2: 


pop  ax 
push  ax 

mov  ch,  4 

mov  dl,  io_port 

mov  al ,  yes_code 

out  dx,  ax 

inc  dx 


;yes  code  counter 
fsend  out  yes  code 


;  statport 
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loop2:    in  al,  dx  Jwait  for  echo 

and  al ,  recv_rly 
jz  lcop2 

dec  dx  ;dataport 

in  al,  dx  Iget  echo 

cmp  al  ,  yes_code      ;check  for  error 
jnz  error4  Jif  error,  retransmit 

dec  ch  ;do  again  until  counter  =  0 

jnz  rrore2 
ret 

error4:   rrov  al  ,  yes_code      Jretransmit 

out  dx ,  al 

inc  dx  ;statport 

jmp  loop2 

END  PROC  Yes; 
PROC  No; 

— *  AUTHOR:  THOMAS  V.  WORKS 

~-  DATE:  AUGUST  1986 

— *  DISCRIPTION:   NO  TRANSMITS  A  SINGLE  NO  CODE  (6EH)       '^■ 

— -  INDICATING  PROCESS  CONTINUING.  *• 

no_code        equ  6Eh 

pop  ax 
push  ax 

mov  dl ,    io_port  ;send   out    no   code 

iTore3:        mov   al,   no_code 

out   dx,    ax 

inc  dx  ;5tatport 

loop3:    in  al ,  dx  ;wait  for  echo 

and  al,  recv_rdy 

jz  lcop3 

dec  dx  ;dataport 

in  al,  dx  ;get  echo 

cmp  al ,  no_code       ;check  for  error 

jnz  more3  ;if  error,  do  again 

ret 

END  PROC  No; 
PROC  Recv_'block; 

~*  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  AUGUST  1986 

— -  DESCRIPTION:   RECV_ELOCK  RECEIVES  A  BLOCK  OF  DATA,  '•=■ 

— *  SEQUENTIALLY  ONE  BYTE  AT  A  TIME  VIA  THE  MODEM  PORT.  -■ 

—^    THE  ADDRESS  TO  STORE  THE  RECEIVED  TEE  DATA  IS  AN  INPUT  -■ 

— -  PARAMETER  AND  THE  AMOUNT  OF  DATA  RECEIVED  IS  AN  OUTPUT  =■'- 
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~*  FARAMST5R.   RECV_BLOCK  WAITS  UNTIL  IT  RECIIVES  A 

— *  SEQUENCE  OF  FOUR  BLOCK  COLES  (0FFh)  INDICATING  END  OF 

— *  DATA  BLOCK. 


1 oop4: 


notyet 


error5 
loop5: 


pop   ax 
pop    si 
pop   di 
push    di 
pi:sh    si 
push   ax 

nov   tl ,    ctr 

mov   ch ,    4 

mov   cl,    0 

mov  dl ,    s ta tus_pcrt 

ir    al ,    dx 

and   al,    recv_rd.y 

jz    loop4 

dec   dx 

in   al,    dx 

out   dx,    al 

mov    [di]  ,    al 

cmp   al ,    error_c  ode 

jz    error5 

inc   di 

inc    cl 

cmp   al,    tlock_code 

jnz  notyet 

dec  rh 

jz  fini 

inc  dx 
jmp  loop4 

mov  ch ,  4 
inc  dx 
jmp  loop4 

inc  dx 

in  al,  dx 

and  al,  recv_rdy 

jz  loop5 

dec  dx 

in  al,  dx 

out  dx  ,  al 

cmp  al ,  error_code 

jz  eloop 

mcv  [di] ,  error_code 


inc  di 
mov  [di]  , 


al 


Jreturn  address 
;iength  address 
;data  structure  address 

^restore  stack 


;  timeout  counter 
;finish_code  counter 
; length  counter 

;check  for  incoming  char 


Jdataport 

;get  char 

;echo  char 

; store  char 

;check  for  error  code 

;if  no  error,  increment 
;l ocation 
;increment  length 
;check  for  end  of  tlock 

"begin  counting  "block  codes 

jump  when  number  of  block 

codes  =  4 

statport 

if  not  check  for  next 

finish  code 

reload  finish  code  counter 

statport 

get  next  char 

;  statport 

;check  for  second  error  code 


dataport 

get  input  char 

echo  input  char 

is  this  a  true  error 

if  yes,  jump  to  error 

if  not,  treat  it  like 

char  and  store 

next  location 

store  the  char  mistaken 


handler 
a  real 


as 
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f  ini  : 
c  ou  n  1 1 


none : 


ire  d  i 


inc 


dx 
loop4 


eloop:    inc  dx 
loop6;    in  al,  dx 

and  al »  recv_rdy 

jz  lcop6 

dec  dx 

in  al,  dx 

out  dx ,  al 

dec  di 

nov  [di]  ,  al 

inc  di 

inc  dx 

jrp  loop4 


inc 
dec 


dx 


jz  none 

in  a 1 ,  d X 

and  al,  recv_rdy 

Jz  countl 

dec  dx 

in  al ,  dx 

out  dx,  al 

cmp  al ,  block_code 

jz   none 

mov   tl ,    ctr 

jrrp   fini 

sul    cl,    4 


rrov 
mov 
ret 


ch,    0 
[si]. 


ex 


second  error  rode 

next  location  -  now  we're 

tac]^    to  normal 

statport 

get    next  char 

; statport 

Jcheck:   for   retransrri  tted    char 


;dataport 

;^et  retransmitted  char 
^echo  retransmitted  char 
loverwrite  error 

Inext  location 
;  sta  tport 
;get  next  char 


; statport 
.'timeout  to 
; received 

Jfinish  if  counter 
Jchar  received 
;wait  for  input 


ensure  echo  was 

=  0  and  no 


;dataport 

Jget  input 

;echo  input 

; one  last  check 

;if  finish  code  .continue 

;if  not,  do  again 

Jremove  four  "block  codes  from 

;length 

»zero  ch 

*»store  length  for  return 

; fini shed 


IND  FROC  Recv  block; 


FROC  Endfile; 


— « 
— « 

— « 


AUTHOR:  THOMAS  V.  WORKS 

DATE:  AUGUST  1986 

DESCRIPTION:   ENDFILE  WAITS  TO  RECEIVE  EITHER  A  SINGLE 

NO  CODE  (eEh)  INDICATING  FILE  NOT  FINISHED,  OR  A 

SEQUENCE  OF  FOUR  YES  CODES  (0Flh)  INDICATING  FILE 

FINISHED. 


.■«—-. 
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f ile_end 
no  end 


equ  0Flh 
equ  5Fh 


rrore5: 
1 oop8: 


donel: 
more6: 
c  ount2 


done2: 


fal: 
t  ru : 


4 

ctr 

5 tatus_port 
dx 


pop  ax 

pop  di 

push  di 

push  ax 

rrov  ch, 

nov  VI  , 

mov  dl  , 

in  al , 

and  al  ,  recv_rdy 

jz  loop8 

dec  dx 

in  al ,  dx 

out  dx,  al 

cmp  al ,  no_end 

jz  dcnel 

cmp  al ,  f ile_end 

jnz  mores 

dec  ch 

Jnz  moreS 
mov  cl ,  al 
inc  dx 
dec  11 


jz  done2 

in  al,  dx 
and  al,  recv 
jz  count2 
dec  dx 
in  al ,  dx 
out  dx,  al 
cmp  al, 
j  z  tru 
cmp  al , 
jz  fal 
mov  tl, 

jmp 

mov 

cmp  al , 

jz  tru 

cmp  al , 

jz  fal 

mov  [di]  , 

ret 

mov  [di] ,  01 

ret 


rdy 


file_end 

no_end 

ctr 


more6 
al ,  cl 


f ile_end 
no_end 
00 


Jreturn  address 

;address  of  output  variable 

;restore  staclc 

Jfile  end  counter 
Jtimeout  counter 
;checfe  for  input 


Jdataport 
Jget  input 
Jecho  input 
;decode  input 


if  neither,  go  tack:  for 

retransmitted  input 

if  file  end,  tegin  counting 

until  four  are 

received 

store  input  temporarily 

statport 

timeout  to  ensure  echo  was 

received 

finish   if   counter    =  0   and   no 

char  received 

wait  for  input 


; dataport 

;get  input 

;echo  input 

» one  last  decode  and  check 


;if  neither,  do  again 

^reload  for  decode 
Jdecode  input 


;false 
;  true 
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END  FROC  Endfile; 
PROC  Active; 

— *  AUTHOR:  THOMAS  V.  WORKS 

— '^  DATI:  SEPTEMBER  1986 

— *  EESCRIPTION:   ACTIVE  TRANSMITS  THE  ACTIVE  CODE  (0D0h)   '^-* 

— *  TO  THE  CONCENTRATOR  INDICATING  AN  ACTIVE  STATUS  AND     --* 

--'''=  WAITS  FOR  A  REPLY.  *-i 

ready_ccde      equ  0D0h 

pop  ax  Jreturn  address 

push  ax  ;restore  stack 

rdy:     mov  dl,  io_port  ;dataport 

mov  al ,  ready_code 

out  dx,  al  ;send  out  ready  code 

inc  dx  Jstatport 

loop9:    in  al ,  dx  ;wait  for  echo 

and  al ,  recv_rdy 

jz  loop9 

dec  dx  ;dataport 

ill.  al ,  dx  ;get  echo 

cmp   al ,    ready_code  Jcheck  for  error 

jnz    rdy  ;if  not    ready   code,    start 

;again 

ret  ;if  ready  code,  finish 

END  PROC  Active; 

PROC  Waiting; 

--'■'  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  SEPTEMBER  1986 

— -  DESCRIPTION:   WAITING  AWAITS  THE  RESULT  OF  CHECK  QUEUE  - — 

— *  THERE  ARE  FOUR  POSSIBLE  REPLYS:  NOTHING  (0),  FILE      - — 

~*  WAITING  (6),  MESSAGE  WAITING  (0Dh),  OR  RESEND  (1).  THE  ''^  — 

~*  REPLY  IS  AN  OUTPUT  PARAMETER  '— -• 

pop  ax  ;return  address 

pop  di  ;status  address 

push  di  ;restore  stack 
push  ax 

mov  dl,  status_port 
loopl0:   in  al,  dx  ;wait  for  input 

and  al,  recv_rdy 
Jz  locpl0 

dec  dx  ;dataport 

in  al ,  dx  ;get  input 

out  dx ,  al  ;echo  input 
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mov  [di] ,  al  ;store  input 

[Tore?:    inc  dx  ;statport,  wait  for  conf  irra  t  ic 

mov  11,  ctr  ;ioad  timer 

court3:   dec  tl 

jz  finit  ;if  no  input  and  timer  =  0, 

;then  first  input  ok 

in  al,  dx  Jwait  for  confirmation 
and  al ,  recv_rdy 
jz  counts 

dec  dx  loops  there  was  an  error 

in  al,  dt  Jget  retransmitted  input 

out  dx,  al  ;echo  retransmitted  input 

mov  [di] ,  al  ;store  retransmitted  input 

jmp  more?  ;go  tack  for  confirmation 

finit:    ret  ;done 

ENC  FROC  Waiting; 

PROC  Setup; 

— '"-^  AUTHOR:  TEO^AS  V.  WORKS 

--^    EATI:  SIFTEMEER  1986 

— -  DESCRIPTION:   SETUP  TRANSMITS  TO  THE  CONCENTRATOR  THE   '^^ - 

— -  CONNECTION  RECORD.  SEQUENTIALLY  ONE  BYTE  AT  A  TIME.     *— 

— *  THEN  IT  WAITS  FOR  A  REPLY;  XFER  (1),  OR  NO_XFER  (0).    -  — 

---  THE  REPLY  IS  A  BOOLEAN  OUTPUT  PARAMETER  ^=  — 

pop  ax  ;return  address 

pop  di  ;sendrdy  address 

pop  si  ;data  structure  address 

push  di  ;re5tcre  stack 

push  ax 

mcv  tl ,  ctr  ;timeout  counter 

mov  cl ,  2  ;iength  counter 

mov  dl,  io_port  ;dataport 

start:    mcv  al ,  [si]  ;send  destination  cut 

out  dx,  al 

inc  dx  ;statport 

herel:    in  al,  dx  ;wait  for  echo 

and  al,  recv_rdy 

Jz  herel 

dec  dx  ;dataport 

in   al,   dx  ;get   echo 

cmp  al,    [si]  ;check   for  error 

jnz    fault 

inc  si  ;go  to  next  location 

dec  cl  ;count  length 

jnz  start  ;jump  until  length  =  2 

jmp  finis  ;done 
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fault:   mov  al,  error_code 

out  d7 ,  al 

inc  dx 
here2:    in  al ,  dx 

and  al ,  recv_rdy 

jz  here2 

dec  dx 

in  al ,  dx 

crrp   al  ,    error_code 

jnz  fault 
jmp  start 

finis:        mov   al ,    tloci:_code 

out    dx,    al 

i  nc   dx 
here3:         i'^    al,    dx 

and   al,    recv_rdy 

Jz   here3 

dec    dx 

in   al ,    dx 

cmp   al ,    "block_code 

jnz    finis 

inc   dx 
lupe:  in   al,    dx 

and   al ,    recv_rdy 

jz    lupe 

dec   dx 

in   al,    dx 

out   dx,   al 

rrov    [di]  ,    al 

cmp   al ,    0 

Jz    set 

cmp   al ,    1 

Jz    set 

mov    [di]  ,   0 

set:  inc   dx 

Ifount:        dec    tl 

Jz   allset 

in    al ,   dx 

and   al ,    recv_rdy 

Jz   kount 

dec   dx 

in   al,    dx 

out   dx ,   al 

mov    [di]  ,    al 

cmp   al ,    0 

Jz    set 

cmp   al ,    1 


Jsend    out   error   code 

; statport 
Iwait    for   echo 


;dataport 

; get    echo 

Jcheck    to    see    if   error    code   wa 

; received 

;  if  not ,  retransmit 

;retransmit  data 

;send  out  block  code 

; statport 
Iwait  for  echo 


;dataport 

',geX   echo 

Jcheck  to  see  if  block  code  was 

; received 

Jif  not,  retransmit 

; statport 

;wait  for  sendrdy  result 


;dataport 

;get  result 

;echo  result 

Jstore  result 

;check  for  invalid  result 


;if  invalid,  set  sendrdy  to 

;false 

; statport 

Jtimeout  to  ensure  echo  receive 


Jdataport 

;get  input 

;echo  input 

Jstore  input 

;check  for  invalid  result 
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jz    set 

iTov    LdiJ  ,    0 

mov   tl ,    c t r 
jnp   Irount 


;if    invalid,    set    sendrdy    to 

;fel5e 

;  timeout   again 


allset:   ret 
ENT  FP.OC  Setup; 


FROC  My_put; 

— -  AUTHOR:  TE0^1AS  V.  WORKS 

~*  LATE:  JULlf  19S6 

— *  DESCRIPTION:   MYPUT  CONVERTS  THE  INTEGER  INPUT 

— -  PARAMETER  TO  ITS  ASCII  EQUIVALENT  ANE  DISPLAYS  IT. 


offset 


equ  ?eh 

pop  bx 
pop  dx 
push  bi 


.return  address 
;input  value 
;restore  stacic 


mov  cl,  conout_code 

add  dl,  offset        »*convert  to  ascii  for  output 

int  224 

ret 

END  PROC  My_put; 

FROC  Put_str; 

— -  AUTHOR:  THO^^AS  V.  WORKS 

--*  DATE:  JULY  1986 

---  DESCRIPTION:   PUT  STR  DISPLAYS  THE  STRING  INPUT.  THE    *  — 

--'■^  LENGTH  OE  THE  STRING  IS  TEE  FIRST  BYTE  OF  THE  STRING.   '■'— 


moree 


pop  ax 
pop  si 
push  ax 

mov  al ,  [si] 

mov  di,  0000 

mov  ah,  00 

mov  di ,  ax 

mov  cl ,  conout_code 

inc  si 

mov  dl,  [si] 

int  224 

dec  di 


Jreturn  address 
;strins  address 
;restore  stack 

;first  value  is  string  length 

;set  di  to  zero 

;set  ah  to  zero 

;move  string  length  to  di 

;get  next  char 

Joutput  to  console 
;decrement  string  length 
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crrip   di,    0000 
jnz    n^orea 

ret 

INT  PROC  Put  str; 


;  finish  when  string  length  is  ,. 
;  zero 


PROC  Endnsg; 

—>''■    AUTHOR:  THOMAS  V.  WORKS 

--'^    DATE:  JULY  1985 

--'■'    DESCRIPTION:   ENDNSG  TRANSMITS  A  SEQUENCE  OE  EOUR  END   -- 

— *  OE  MESSAGE  CODES  (0Flh)  INDICATING  END  OF  MESSAGE.      *- 


rrsg_eni 


On  '^ 


rrcreQ: 
1 oopll 


rrorelg 
count4 


d  one3: 


equ  0Flh 

pop  ax 
push  ax 

mov  ch ,  4 

rrov  11,  ctr 

rrov  dl  ,  status_port 

in  al,  dx 

and  al ,  recv_rdy 

jz  loopll 

dec  dx 

in  al ,  dx 

out  dx,  al 

cmp  al ,  msg_end 

jnz  more9 

dec  ch 

jnz  moreQ 

inc  dx 

dec  tl 

jz  done3 

in  al ,  dx 

and  al,  recv_rdy 

jz  count4 

dec  dx 

in  al,  dx 

out  dx ,  al 

crrp   al ,   msg_end 

jz    done3 

mov   tl ,    ctr 

Jmp  morel0 

ret 


Ireturn   address 
;re5tore   stacic 

;ioad   message   end   counter 
;load    timer 

;wait    for   message   end   code 


dataport 

get  message  end  code 

echo  input 

checfe  for  error 

if  error,  get  next  input 

count  message  end  codes 

until  counter  =  0 

statport 

timeout  to  ensure  echo  receive 


Jdataport 
;get  input 
;echo  input 
;one  last  check 

;if  not  message  end  code,  tirre 
; out  again 


END  PROC  Endmsg; 
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PROC  Search  first; 


AUTHOR:  THOrAS  V.  WORKS 

TATE:  SEPTIMEER  1966 

LISCRIPTION:   SrARCH_FIRST  SEARCHES  FOR  THE  FIRST      -- 

INSTANCE  OF  DIRECTORY  ^ATCH,  RIAES  126  BYTE  RECORD      ^-^- 

CONTAINING  f^ATCHEE  ENTRY  INTO  Dr^A,  ANT  COMPUTES  OFFSET 

TO  ENTRY  WITHIN  128  2YTE  RECORD  USING  CF/M-e6  FUNCTION 

#17. 


sf _code 
finish  dir 


pqu  llh 
equ  0ffh 


pop 

pop 

pop 

pop 

pop 

push 

push 

pu  sh 

push 

push 


ax 
si 

di 

bx 

dx 
dx 
tx 
di 
si 
ax 


FTOv  [si]  ,  tx 
mov  cl ,  sf_code 
int  224 

rrov  tx,  [si] 
rrov  [di]  ,  ax 

cnp  al,  finish_dir 

jz  done4 
rrov  cl  ,  32 
mul  cl 


done4: 


add 

mov 

ret 


hx ,  ax 
[si],  hx 


return  address 
dir_addr  address 
code  address 
tuffer  address 
fchl  address 
restore  stack 


;save  tuffer  address 

search  for  first  directory 

match 

restore  tuffer  address 

store  results  of  search  in 

code 

are  we  at  the  end  of  the 

directory 

if  yes,  done 

directory  match  offset  = 

tuffer  address  +  (32  -  search 

result ) 

Istore  directory  match  offset 
>in  dir  addr 


END  PROC  Search_first ; 
PROC  Search  next; 


--*  AUTHOR:  THOMAS  V.  WORKS 

— '^  DATE:  SEPTEMBER  1966 

— *  DESCRIPTION:   SEARCH_NEXT  SEARCHES  FOR 

— -  INSTANCE  OF  DIRECTORY  MATCH.  READS  126 

— *  CONTAINING  MATCHED  ENTRY  INTO  DMA,  AND 


THE  NEXT 
BYTE  RECORD 
COMPUTES  OFFSET 
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— -  TC  ENTRY  WITHIN  128  BYTE  RECORD  USING  CP/^^-86  FUNCTION  --, 
— ^•-  #18,  UNTIL  INT  OF  DIRECTORY  IS  REACHED  (?FFh).         --i 


sn  code 


equ  12h 


pop  ax 
pop  si 
pop  li 
pop  "bx 
pop  dx 
push  dx 
push 
piish 
push 
push 


Ix 

di 
si 
ax 


nov    [sil  ,    tx 
mov   cl ,    sn_oode 
ir.t    224 

mov   bx,    [si] 
mcv    [di]  ,    ax 

cmp  al ,  f inish_dir 

jz  done5 
mov  cl,  32 
mul  cl 


doneS: 


add 
mov 

ret 


hx,  ax 
[si]  ,  hx 


♦return  address 
;dir_addr  address 
;code  address 
;buffer  address 
;fct)l  address 
Irestore  stack 


save  tuffer  address 

search  for  first  directory 

match 

restore  buffer  address 

store  results  of  search 

in  cede 

are  we  at  the  end  of  the 

directory 

if  yes,  done 

directory  match  offset  = 

buffer  address  +  (32  '■'  search 

result) 

store  directory  match  offset 
in  dir  addr 


END  PROC  Search  next; 


PROC  End  block; 


— ';«  AUTHOR:  THOMAS  V.  WORKS 

— -  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:   END  BLOCK  TRANSMITS  A  SEQUENCE  OF  FOUR 

~*  END  OF  BLOCK  CODES  ( 0FFh )  INDICATING  END  OF  BLOCK. 


morel2 


pop  ax; 
push  ax 

mov  ch,  4 

mov  dl ,  io_por t 

mov  al ,  blocic_code 

out  dx,  ax 

i  n  c  d  X 


1 copl2  :   in  al ,  dx 


;return  address 
;restore  stack 

;yes  code  counter 
;send  out  yes  code 


; statport 
;wait  for  echo 


120 


a^^.d    al,    recv_rdy 

jz   loopl2 

dec   dx 

in   al ,    dx 

cn^p   al  ,    tl  ocic_ccde 

error6 

ch 

mcrel2 


jnz 
dec 
jnz 
ret 


Jdataport 
;get  echo 
Jcheck  for 
;if  error, 
;do  again 


e  rror 

retransrrit 
until    counter    =   0 


error6:      nov  al,    tlock_ccde 

out  dx,    al 

inc  dx 

jmp  locpl2 

EN^  PROC  Ind  1:1  ock; 


;  retransmit 
J  statport 


PROC  Send_string; 

—^^'   AUTHOR:  THOMAS  V.  WORKS 

— -  TATE:  SIFTIMEIR  1986 

~*  CESCRIFTION:   SENE  STRING  TRANSMITS  A  STRING  INPUT, 

~*  SKCUENTIALLY  ONE  BYTE  AT  A  TIME.   THE  ADDRESS  OE  THE 

--'•'«  STRING  IS  AN  INPUT  PARAMETERS.   THE  LENGTH  IS  THE 

---  FIRST  IXU   OF  THE  STRING. 


1 ooplt : 


loopla 


pep  ax 
pop  si 
push  ax 

mov  al,  [si] 
rrov   di,  0000 

rrov  ah,  00 
rov  di ,  ax 
mov  dl ,  io_port 
inc  si 

nov  al ,  [si] 

out  dx,  al 

inc  dx 

in  al,  dx 

and  al ,  recv_rdy 

jz    loopla 

dec   dx 

in   al,    dx 

crnp   al ,    [si] 

jnz    error? 

inc   si 

dec   di 

jnz    loop lb 

jrrp   done6 


;return  address 
istring  address 
;restore  stack 

;first  char  is  string  length 
Jset  up  and  store  string  length 
;in  di 


;increrrent  to  first  char 

;send  out  char 

;statport 
;wait  for  echo 


Jdataport 
;get  echo 
;check  for  error 

;get  new  char 

;decrement  length 

;do  again  until  length  =  0 
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error?:      ncv    al ,    error_cole  ;tell    receiver   error    ia 

1 1  rarsmission 

out  dx,  al 

inc  dx  ;stdtport 

loopld:   in  al,  dx  ;wait  for  echo 

and  al,  recv_rd.y 

jz  loopld 

dec  dx  Jdataport 

in  al,  dx  Icheck  to  see  if  error  code  wa: 

; received 

cmp  al ,  error_code 

jnz  error?  ;if  not,  retransmit  error  code: 

errorB:   mov  al,  error_ccde  Jsend  second  error  code 

out  dx,  al 

inc  dx  ;statport 

Icoplc:   in  al,  dx  ;wait  for  echo 

and  al ,  recv_rdy 

j  z  looplc 

dec    dx  j'dataport 

in   al,    dx  Icheck    to    see    if   error    code   wa? 

; received 

cmp  al,  error_code 

jnz  errors  ;if  not,  retransmit  error  code! 

jmp  locplb  ;retransmit  char 

dcr.e6:    ret  ;done 

END  FROC  Serd_string; 
PROC  Send_dir; 

~*  AUTHOR:  THOMAS  V.  WORKS 

— *:'  DATE:  SEPTFMEER  1986 

--'■^  DESCRIPTION:   SEND  DIR  TRANSMITS  A  DIRECTORY  ENTRY  OF  '-='— j 

— *  PREDEFINED  LENGTH  TBT  CONSTANT  INPUT  PARAMETER).  THE  -— 

— *  ADDRESS  OF  THE  ENTRY  IS  THE  OTHER  INPUT  PARAMETER.  -— 

pop  ax  Jreturn  address 

pop  tx  ;data  structure  length 

pop  si  ;data  structure  address 

push  ax 

mov   dl,    io_port  »dataport 

loop2t:      mov  al ,    [si]  Jsend    out    char 

out   dx ,    al 

inc  dx  ;statport 

loop2a:   in  al,  dx  ;wait  for  echo 

and  al,  recv_rdy 

jz  loop2a 

dec  dx  ;dataport 

in  al,  dx  ;set  echo 

cmp  al ,  [si]  ;check  for  error 

jn7  error9 
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ire  si 

dec  It 

jnz  loop2]: 

jrrp  done? 

error9:   mov  al  ,  error_code 

out  dx ,  al 
inc  dx 
loop2d  :   in  al ,  dx 

and  al ,  recv_rdy 
jz  loop2d 
dec  dx 
in  al,  dx 

cnp  al,  error_code 

jnz  errorQ 
errorl2!:  mov  al ,  error_code 

out  dx,  al 

inc  dx 
lccp2c  :   i  n  al ,  dx 

and  al  ,  recv_rdy 

j  z  loop2c 

dec  dx 

in  al ,  dx 

crrp   al ,    error_c ode 
jnz   errorl0 
jrrp    locp2"b 
done?:         ret 


Jget  new  char 

Jdecrerrent  length 

;do  again  until  length  =  ?. 


;tell  receiver  error  in 
; transmission 


; statport 
;wait  for  echo 


Jdataport 

;checic  to  see  if  error  cede  was 

; received 

lif  not,  retransmit  error  code 
»send  second  error  code 

; statport 
;wait  for  echo 


Jdataport 

;check  to  see  if  errDr  code  was 

; received 

;if  not,  retransmit  error  code 

^retransmit  char 

;done 


END  PROC  Send_dir; 
PROC  :}riveout: 

— *  AUTHOR:  THOMAS  V.  WORKS 

~*  DAT5:  3FFTIMBIR  1986 

~*  DESCRIPTION:   DRIVEOUT  TRANSMITS  THE  BYTE  EQUIVALENT 

--*  CE  THE  DRIVE  OF  THE  TRANSMITTED  DIRECTORY. 


pop  ax 
pop  "bx 
push  ax 

d  out :    mov  dl ,  io_port 

mov  al ,  tl 

out  dx,  al 

inc  dx 
loop 13:   in  al,  dx 

and  al,  re'"v_rdy 

Jz  loopl3 

dec  dx 

in  a 1 ,  d X 


;return  address 
Jdrive  value 
;restore  stack 

; dataport 

jsend  out  drive 
; statport 
;wait  for  echo 


;dataport 
;get  echo 
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;check  for  error 

;if  error,  start  again 

;if    not,    finish 


crrp   al,    tl 
jr  z    dout 
ret 

END  PROC  Driveout; 

PROC    Triveirn; 


--    AUTHOR:    TRO^'AS    V.    WORKS 

-''■'    PATI:    SEPTFy:BER    1995 

■-  DISCRIPTICN:   CRIVEIN  RECEIVES  THE  BlfTE 

--  THE  ERIVE  OP  THE  TRANSMITTED  DIRECTORY. 


EQUIVALENT  OF 


) 


pop  ax 
pep  di 
push  di 
push  ax 

mov   tl ,    ctr 

rpov   dl  ,    status_port 
lcopl5:      in  al,    dx 

and  al ,  rerv_rdy 

j2  loopl5 

dec  dx 

in  al,  dx 

out  dx,  al 

rrov    fdi]  ,    al 
norel5:      ir.c    dx 
counts:      dec    tl 

jz   doneS 

ir.  al  ,  dx 
and  al ,  recv_rdy 
jz  count 5 
dec  dx 
in  al,  dx 
out  dx,  al 
cmp  al ,  [di] 
jz  doneP 
mov  hi,  ctr 
jmp  rrorel2 
doneS:    ret 


Jreturn  address 
Jaddress  for  drive 
Jrestore  staclc 


;timeout  counter 

;wait  for  incoming  go  cod; 


dataport 

get  input 

echo  input 

store  input 

statport 

timeout  to  ensure  echo  was 

received 

finish  if  counter  =  0  and 

no  char  received 

wait  for  input 


;dataport 

Jget  input 

;echo  input 

;oae  last  check 

;if  not  error  , finish 

;if  error,  do  again 


END  PROC  Drivein; 

PROC  Off; 

— *  AUTHOR:  THOI^AS  V.  WORKS 

--'!*  DATE:  SEPTEMBER  1966 

— *  DESCRIPTION:   OFF  TRANSMITS  THE  OFF  CODE  (0Fh) 
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— -  INLICATING  TO  TEE  CONCENTRATOR  A  TERMINAL  IS  NO  LONGER 
--'■'    ACTIVE. 


off  code 


equ  eFh 

pop  ax 
push  S.X 

n"ov  dl ,  i  o_port 
mov  al ,  of f_code 
out  dx ,  al 
ret 


Jreturn  address 
irestore  stack 

;send  out  off  code 


END  PROC  Off; 
rr  a  i  n  : 
END  Myasmlit; 


^ITH  Xferfile,  Messages,  Myesmlit,  Directry, 
Who,  Myutil,  "^ulltrd,  ^'ames; 

PACKAGE  EODY  Xferrrain  IS 

USE  Xferfile,  Messages,  Myasrlit,  Directry, 
Who,  Myutil,  Bulltrd,  Names: 

— -  MAIN  PROGRAM  '^  — 

s^e  sic }!tsj£;;;3!«y^5;c >;!;{«;;:>;« sits;; sis 5ic 


status  : 
ctrl_f : 
ctrl^n" : 
ctrl_d: 
resend : 
ctrl_l  : 
ctrl_r : 
ctrl_s : 
ctrl^t : 
c trl_x : 
ctrl_w : 
ctrl^g: 
Ctrl  p : 
ctrl't: 


tyte; 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


tyte 
tyte 
hyte 
tyte 
byte 
tyte 
tyte 
tyte 
tyte 
tyte 
tyte 
tyte 
tyte 


16#06#); 
16#0D#); 
ie#04#); 
i6#0i#); 
16#0C#); 
16#12#); 
i6#i3#); 
I6#i4#); 
16#18#); 
16#17#) ; 
ie#07#); 
ie#i0#); 
ie#02#); 


BEGIN 

Clearscrn; 

Put  ("Welcome  to 

Put  ("Local  Area 


the  NPS  Computer  Science  Labratory  "); 
Network:! " )  ; 
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New_linpINew_line; 

Put  ("Execution  5e,s;ir.s.  Version  l.?"';  New_liae; 

LOOP 

Put  ("WAITING  TO  BI  PCLIID...");  New_line; 

— -  SEND  OUT  ACTIVE  COI^L  (Pl^Ch)  AND  WAIT  FOR  RIPLI  --- 

Active; 

Put    ("CHECKING    EOR    INCOr^.ING    FILE   OR   MESSAGE.");    New_lin 

Vaiti''^    (status); 

New_line; 

CASE  status  IS 

WHEN  byte  (0) 

=>  Put  ("NO  FILE  OR  MESSAGE  INCOMING.");  New  line; 


WHEN  ctrl_f 

=>  Put  ("FILE  READY  TO  RECEIVE.  PLEASE  RECEIVE  IT  "): 

Put  ("BEFORE  PROCEDING.");  New  line; 

Put  ("FAILURE  TO  DO  SO  WILL  CAUSE  UNFREC ICTA3LF 

Put  ("RESULTS");  New_line; 

WHEN  ctrl_m 

=>  Put  ("MESSAGE  READY  TO  RECEIVE.  PLEASE  RECEIVE  "); 

Put  ("IT  BEFORE  PROCEDING.");  New  line; 

Put  ("failure  TO  DO  SO  WILL  CAUSF'UNPRED ICTABLE  "' 

Put  ("RESULTS");  New_line; 

WHEN  ctrl_d 

=>  Put  ("DIRECTORY  READY  TO  RECEIVE.  PLEASE  RECEIVE"' 

Put  ("  IT  BEFORE  PROCEDING.");  New_line; 

Put  ("FAILURE  TO  DO  SO  WILL  CAUSE  UNPREDICTABLE  "j 

Put  ("RESULTS");  New_line; 

WHEN  resend 

=>  Put  ("DESTINATION  FOR  YOUR  PREVIOUS  SESSION  IS  "); 

Put  ("NOW  ACTIVE.  PLEASE  RESEND.");  New  line; 

Put  ("failure  to  do  SO  WILL  CAUSE  UNPREDICTABLE  ") 

Put  ("results");  New_line; 

END  case; 

New_line; 

— *  USER  MAIN  MENU  *— 


Put  ("CTRL  S  =  SEND  FILE  ");  New  line; 

Put  ("CTRL'R  =  RECEIVE  FILE  ");  New  line; 

Put  ("CTRL_T  =  SEND  MESSAGE  (TALK)  ") ;  New_line; 

Put  ("CTRL_L  =  RECEIVE  MESSAGE  (LISTEN)  ");  New_line; 

Put  ("CTRL_P  =  SEND  DIRECTORY  ");  New  line; 

Put  ("CTRL_G  =  RECEIVE  DIRECTORY  ");  New_line; 

Put  ("CTRL  W  =  GET  NET  STATUS  (WHO)  ");  New  line; 

Put  ("CTRL'b  =  RECEIVE  BULLETIN  BOARD  ");  New  line; 
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New_line; 

Mew  line; 

Put" ("ENTER  INPUT  :  ") ; 

Keyin  (input); 

New_line; 

CASE  input  IS 

WHEN  ctrl_s  =>  Sendfile; 

WEEN  ctrl_r  =>  Receivefile; 

WHEN  ctrl_t  =>  Talking; 

WHEN  ctrl_l  =>  Listening; 

WEEN  ctrl_w  =>  V.'hos_ there; 

WHEN  ctrl_g  =>  ■Receive_dir; 

WHEN  ctrl_p  =>  Present_dir; 

WREN  ctrl_t  =>  Recv_tulletin; 

WEEN  OTHERS  =>  NULL; 

END  case; 

Put  ("CTRL_X  =  EXIT.  ANYTHING  ELSE  TO  CONTINUE."); 

Keyin  ( input)  ; 

EXIT  WHEN  input  =  ctrl_x; 

Clearscrn; 

— -  LOOP  CONTINUOUSLY  UNTIL  USER  EXITS  '— - 

ENL  loop; 

— -  TELL  CONCENTRATOR  NO  LONGER  ACTIVE  -  — 

Off; 


END   Xfermain; 


WITH   Myasrrlib,    Myutil,    Names; 
PACKAGE   EOLY    Bulletin    IS 

USE   Kiyasrrlit,    Myutil,    NarresJ 

— -*  BULLETIN  BOARD  ** — 

rrax_n'sg  length:  CONSTANT  :=  1600; 

rrax  rsgl  CONSTANT  :=  2e ; 

reciive:  CONSTANT  BYTE  :=  "byte  (ie#0D#);   — CTRL_M- 

senl:  CONSTANT  BYTE  :=  tyte  (16#02#);   — CTRL_3  — 

TYPE  msg  IS 
RECORD 

message:  ARRAY  (1 . .max_msg_length )  OF  tyte; 

msg_length:  Integer; 
END  reccre; 

msg.list:  ARRAY  (l..max_msg)  OE  msg; 
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connend :  byte ' 

rrsg_court:  Integer  t=  ?■' 

byte_count:  Integer  :=  ?; 

rr*5g_llock:  ARRAY  { 1 .  .  "bl  ock_si  ze  )  CF  lyte; 

BFGIN 

Cle^rscrn ; 

Put  ("NFS  COMPUTER  SCIENCh;  LABRATORY  BULLETIN  BOARD."); 

New_lineJ  New  line? 

LOOP 

—■■'    TELL  CCMCENTRATCR  BULLETIN  BOARD  ACTIVE  AND  WAIT  =^- 
—'■^    FOR  REPLY  -- 

Active; 

— *  MESSAGES  INCOMING  OR  REQUEST  TO  SEND?  ':=— 

Waiting  ( comnand) ; 

IF  corrmand  =  receive  THEN 

nsg_count  :=  nsg_count  +  i; 

---  RECEIVE  MESSAGES  UNTIL  MSG_COUNT  =  20  -~ 

Rec7_tlock  (msg_list  (rrsg_c  cunt )  .inessage  'ADDRESS  , 

rrsg_li5tfm5g_count).m5g_  length); 
EndiTSg; 
Put  {'■'")' 
ELSIE  rommand  =  send  THEN 

— ^:'  SEND  ALL  MESSAGES  CURRENTLY  ON  BOARD  -  — 

FOR  i  IN  1.  .rrsg_count  LOOP 
tyte  count  :=  0; 

loop" 


— *  FORMAT  MESSAGES  IN  128  BYTE  BLOCKS  FOR  '•=  — 
— *  TRANSMISSION.  FOR  EACH  MESSAGE  SEND  -  — 
— *  UNTIL  BYTE_COUNT  =  M3G_LENGTH  THEN  ADD  -  — 
— *  BLANKS  AS  NECESSARY  TO  FILL  IN  LAST  128  -  — 
— «  BYTF  BLOCK.  SEND  NEXT  MESSAGE  UNTIL  ALL  -— 
— *  MESSAGES  ARE  SENT  =■=  — 

FOR  j  IN  1. .tlock_size  LOOP 

■byte_count  :=  byte_count  +  i; 

IF  byte_count  >  m5g_list( i )  .msg_length  THEN 

rr5g_block  (j)  :=  space; 
ELSE 

rnsg_block    ( j  )    :  = 

msg_l ist ( i ) . m es s age ( by te_ count ) ; 

END  if; 
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END  loop; 
No; 

Send_tlork    (rr5g_block 'ADDRIS  3  ,    tlock_size); 
7XIT   VEIN    tyte_count    >   msg,! ist ' i ) .msg_lenfoth ; 

END  loop; 

iND   loop;      — ^'SG   COU.nIT  — 


Yes; 

END    if;      — COt^r^ANE— 

END  loop;   — r^AIN— 
END  Bulletin; 


The   following  tatch 
preceding  prograrrs: 


file  (xfer.sut)  is  used  to  compile   the 


era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

era 

jar.us 

janus 

janus 

janus 

janus 

janus 

janus 

janus 

janus 

jasmSe 

janus 

janus 

jarus 


n-y 
rry 
xf 
me 
di 
vh 
tu 
na 
my 
my 
xf 
me 
di 
wh 
tu 
xf 
xf 


uti 1 . sy 
asmlit . 
erf ile. 
ssages . 
rectry . 
0 .  sym 
lltrd.s 
mes . sym 
util.  jr 
asmlit . 
erf ile . 
ssages . 
rectry . 

c.  jrl 
lltrd.  j 

ermain . 
ermain  . 
names .  s 
myutil . 
myasmli 
xferf il 
message 
directr 
who  .spc 
tulltrd 
myutil 

myasml 
xferfil 
message 
directr 


m 

sym 

sym 

sym 

sym 

ym 

1 

jrl 
jrl 
jrl 
jrl 

rl 
jrl 
end 
pc   ■ 
spc 
t .  spc 
e.  spc 
s .  spc 
y.  spc 

.  spc 

it 
e 
s 
y 
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jarus  who 
janus  tulltrd 
janus  xferrrair 
jlink  xferrrain 
era  tulletin . jrl 
era  tulletin . cmd 
janus  tulletin 
jlink  tulletin 
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APPENDIX   I 
LISTING  OF  CCNCENTRATOR  PROaRAr^S 

PACKAGE  Ccncnarre  IS 

— -  GLOBAL  TYPES,  CONSTANTS,  AND  VARIABLES  ^-— - 

TYPE  prcces5_stat'js  IS 
RECORD 

sourceport:  Integer; 
destport:  Integer? 
process_type:  tyte; 

END  record; 

r!ax_que:  COKSTANT  :=  552;   —FOR  24  TERMINALS  — 

TYPE  que  IS  ARRAY  ( 1 .  .niai_que  )  OF  proce5S_s  tatus  ; 

queue:  que; 

resend:  CONSTANT  BYTE  :=  tyte  (16#01#); 
zero:  CONSTANT  ^YTE  :=  tyte  (0); 
machno:  CONSTANT  :=  24; 
ready:  Boolean; 

active_list:  ARRAY  (l..machnc)  OF  Boolean; 

END    Concnarre; 


PACKAGE  Concutil  IS 

PROCEDURE  Check_queue  ( numlDer_que :  IN  Integer; 

port:  IN  Integer; 
aue_id:  OUT  Integer; 
result_que:  OUT  Boolean); 
PROCEDURE  Net_stat  (destination:  IN  Integer); 
END  Concutil; 


WITH  Coasmlib,  Concname; 
PACKAGE  BODY  Concutil  IS 
USE  Coasmlit,  Concname; 

PROCEDU"RE  Checyc_queue  (number_que:  IN  Integer; 

port:  IN  Integer; 
que_id:  OUT  Integer; 
re5ult_que:  OUT  Boolean)  IS 
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--  AUTHOR:  THOMAS  V.  WORKS 

-''-  DATE:  SEPTEMBER  1986 

--  DESCRIPTION:   CHECK  CUEUI  CHECKS  THE  CUEUE  FOR  *AITI.nIG  -- 

--  PROCESSES  AND  TELLS~SOURCE  ANC  DESTIMATIO.M  WHAT,  IE     -- 

-':=  ANYTHING,  IS  WAITING.   BOOLEAN  RESULT  OF  TFE  CHECK  IS 

-=^  AN  OUTPUT  PARAr^ETER. 


_  ( 


BEGIN 

IE  num"ber_que  =  0  THEN 

— *  NOTHING  IN  QUEUE  -~ 

result_que  :=  false; 
Oueue_status  (port,  zero); 
ELSE 

FOR    i    IN    1.  .  (nurrter_que    +    1)    LOOP 
IF   queue    (i).destport   =   port   THEN 
que_id    :=   i; 
result    que    :=   true; 

exit; 
END  if; 

que_id  :=  i; 

END  loop; 

if  que_id  =  (nurrter_que  +  1)  THEN 

--'-  NOTHING  IN  QUEUE  FOR  POLLED  PORT  *— 

result_que  :=  false; 
Cueue  status  (port,  zero); 
ELSE 

FOR  i  IN  1.  .255  LOOP 
FOR  j  IN  1.  .255  LOOP 

— *  DELAY  FOR  SOURCE  i'— 

null; 
END  loop; 
END  loop; 

— *  POLL  SOURCE  OF  WAITING  PROCESS  -— 
Cherk_port  (queue(queue_id) . sourceport ,  ready); 
IF  ready  THEN 

— *  TELL  POLLED  PORT  WHAT  IS  WAITING  FOR  IT  -  — 
Queue_status  (port,  queue(que_id ) . prccess_type) 
— >!'  TELL  SOURCE  OF  WAITING  PROCESS  TO  RESEND  -- 
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Cueue_status  (queue(que  id  '  .  sourceport ,  rese^.d); 
ELSE 

— '!=  TELL  POLLED  PORT  TO  GO  AHEAD  ':=— 

result_que  :=  false; 
Cueue_status  {port,  zero); 

END  if; 

END  if; 
FND  if; 


END  Check  queue; 


PROCEDURE  Net_stat  (dest i rat  ion  :  IN  Integer)  IS 

--'•'    AUTHOR:  THOMAS  V.  WORKS 

— '^  DATE:  SFPTE^'EFR  1986 

— '^    DESCRIPTION:   NET_STAT  CHECKS  THE  ACTIVE_LIST  FOR      ■'— 

~*  ACnVE  PORTS,  PLACES  LIST  OF  ACTIVE  PORTS  IN  WH3_LIST,  *— 

— -  AND  TRANS^'ITS  DATA  TO  REQUESTING  TERMINAL.  -~ 

wnum:  Integer  :=  0; 
vho_length:  Integer  :=  d'l 

who_li5t:  ARRAY  (l..marhno)  OF  lyte; 

BEGIN 

FOR  i  IN  l..rrachno  LOOP 

IF  active_list  (i)  =  true  THEN 

— *  PLACE  ACTIVE  PORTS  IN  WHO  LIST  *— 

wnum  :=  wnum  +  i; 
who_list  (wnum)  :=  "byte  (1); 
who  length  :=  who  length  +  i; 
END  IFT 
END  LCCP; 

Send_who_tlock  (destination,  who_list 'ADDRESS  , 

who_length) ; 

END  Net_stat; 

END  Concutii; 


PACKAGE  Coasmlit  IS 

PROCEDURE  Check  port  (prt:  IN  Integer;  rdy:  OUT  Boolean); 
PROCEDURE  Connect  ^prt:  IN  Integer;  addr:  IN  Integer); 
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PROCIDURE 
PROCErURI 

PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
END  Coasmlit; 


Oueue_status  (prt:  IN  Integer;  proc:  IN  byte); 
Send_who_tlock  (dest:  IN  Integer;  addr:  IN  Integer; 

len :  IN  Integer) ; 
Broadcast  (s_prt:  IM  Integer;  t_input:  OUT  byte;; 
Conrxfer  (s_prt:  IN  Integer;  d_prt:  IN  Integer); 
Xfer  (s_prt:  IN  Integer); 
No_xfer  {5_prt:  IN  Integer); 


PACKAGE  ASSEMBLY  Coasrrilib 
jmp  main 
PROC  Check  Dort; 


AUTHOR:  THOMAS  V.  WORKS 

DATE:  SEPTEMBER  1985 

DESCRIPTION:   CHECK_PORT  CHECKS  THE  PORTS  OE  THE 

NETWORK  LOCKING  FOR  THE  ACTIVE  CODE  (0D0h).  IT  TIMES 

OUT  IF  THERE  IS  NO  RESPONSE.   CHECK_PORT  ALSO 

DETERMINES  IF  A  DESTINATION  FORT  IS  ACTIVE.  THE 

BOOLEAN  RESULT  IS  THE  OUTPUT  PARAMETER. 


J. 


ready_ccde 

recv_rdy 

timer 


equ  ZD0h 
equ  02h 
equ  10h 


pop  ax 
pop  di 
pop  dx 
push  dx 
push  di 
push  ax 


;return  address 
;data  address 
;dataport 

;restore  stack 


again:    inc  dx 

mov  tl ,  timer 
loop3:    dec  bl 

jz  nxtprt 

in  al,  dx 

and  al,  recv_rdy 

Jz  loop3 

dec  dx 

in  al ,  dx 

out  dx,  al 

cmp  al ,  ready_code 

jnz  again 
more:     inc  dx 

mov  bl,  timer 
time:    dec  bl 

Jz  thsprt 


;statport 

;ioad  timer 

;go  to  next  port  if  no  input 
;check  for  input 


dataport 

get  input 

echo  input 

check  for  error 

if  error,  get  new  input 

statport 

load  timer 

timer  to  ensure  echo  received 

go  to  this  port  if  timer  =  0 
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in  al,  dx 

;checic  for  input 

and  al,  recv_ 

rdy 

Jz  time 

dec  dx 

;dataport 

in  al ,  dx 

;get  input 

out  dx ,  al 

;echo  input 

crrp  al  ,  ready 

_code 

;check  for  error 

Jnz  more 

;if  error  ^et  new  input 

thsprt : 

mcv  [di]  ,  01 
ret 

;set  ready  to  true 

nxtprt  : 

mov  fdi]  ,  00 
ret 

;set  ready  to  false 

END  PROC  Check_portr 

PROC  Connect; 

— *  AUTHOR:  THOMAS  V.  WORKS 
~-  ^ATI:  AUGUST  1986 


— *  DESCRIPTION: 
— ^'  FROI^  SETUP. 

error_ccde 
finish  code 


CONNECT  RECEIVES  THE  CONNECTION  RECORD 


equ  2IYh 
equ  0FFh 


pop  ax 
pop  di 
pop  dx 
push  ax 

inc  dx 
here4:    in  al,  dx 

and  al,  recv_rdy 

jz  here4 

dec  dx 

in  al,  dx 

out  dx ,  al 

crrp   al ,    error_code 

jz    errors 

cmp  al,  finish_code 

jz  done 

mov  [dl]  ,  al 

inc  di 

inc  dx 

jmp  here4 

errors :   dec  di 

inc  dx 
hereS:    in  al,  dx 

and  al ,  recv_rdy 

jz  hereS 

dec  dx 


Jreturn  address 

;data  structure  address 

tdataport 

;restore  stack 

;  statport 
;wait  for  data 


; dataport 

Jget  data 

;echo  data 

Jcheck  for  error  code 

;check  for  finish  code 

Jstore  data 

;go  to  next  location 

; statport 

;get  next  data 

;go  tack  to  previous  position 

; statport 

;wait  for  retransmitted  data 


;dataport 


in  al ,  dx 


done: 


out 

[TOV 

inc 

inc 

ret 


dx ,  al 

[di] .  al 

di 

dx 

here4 


;set  retransmitted  data 
lecho  retransrritted  data 
;overwrite  bad  data 
jgo  to  next  location 
;sta tport 
;get  next  data 


END  PROC  Connect; 

PROC  Oueue_status; 

— *  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  SEPTEMBER  1966 

--'^  DESCRIPTION:   QUEUE  STATUS  TELLS  THE  SOURCE  AND 

— *  DESTINATION  PORTS  APOUT  THE  PROCESSES  WAITING  IN  THE 

~*  CUEUE. 


pop  ax 
pop  dx 
pop  si 
push  ax 

redo:    mov  ax,  si 

out  dx,  ax 

inc  dx 
loop5:    in  al,  dx 

and  al,  recv_rdy 

jz  loop5 

dec  dx 

in  al,  dx 

cmp  ax,  si 

jnz  redo 

ret 


;return  address 

;dataport 

;value  of  queue  status 
;restore  stack 


Jsend  out 
;  sta  tport 
;wait  for 


queue  status 


echo 


;dataport 
;get  echo 
; check  for 
;if  error, 
;if  not.  finish 


error 
retransmit 


END  PROC  Queue  status; 


PROC  Send  who  "block; 


— * 

— * 
— >'f 
— « 


AUTHOR:  THOMAS  V.  WORKS 

DATE:  SEPTEMBER  1986 

DESCRIPTION:   3END_WH0  BLOCK  TRANSMITS  THE  LIST  OF 

ACTIVE  PORTS  FOLLOWED  BY  A  SEQUENCE  OF  FOUR  FINISH 

CODES  (0FFh)  INDICATING  END  OF  LIST  TO  THE  REQUESTING 

TERMINAL. 


j,i 


J,C  _  _ 


pop  ax 
pop  tx 
pop  si 
pop  dx 
push  ax 


;return  address 
;iength  of  data  structure 
;data  structure  address 
;destination  port  (data) 
;restore  stack 
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mov   ch ,   4 
1 oopt:        mov   al ,    [si] 

out   dx,    al 

inc  dx 
loopa:    in  al ,  dx 

and  al,  recv_rd,y 

Jz  Icopa 

dec  dx 

in  al,  dx 

cmp  al,  [si] 

Jnz  errorl 

inc  si 

dec  tx 

Jnz  loopb 

jmp  over 

errcrl:   mov  al ,  error_code 

out  dx,  al 

inc  dx 
loopd:    in  al ,  dx 

and  al,  recv_rdy 

jz  loopd 

dec  dx 

in  al ,  dx 

cmp  al ,  error_code 

jnz  errorl 
error2:   mov  al ,  error_code 

out  dx,  al 

inc   dx 
loopd2:      in   al ,    dx 

and   al ,    recv_rdy 

jz   loopd2 

dec   dx 

in   al,    dx 

cmp   al ,   error_code 

jnz  errors 

jmp  loopt 

over:  mov  al,    finish_code 

out   dx ,    al 

inc   dx 
loopc:        in  al,    dx 

and   al ,    recv_rdy 

Jz   loopc 

dec   dx 

in   al,    dx 

cmp   al,    finish_code 

jnz  errors 

dec  ch 

jnz  over 

ret 


;finish_code   counter 
;send    out   char 

;  statport 
;wait    for   echo 


;datapor t 
;get  echo 
Jcheck   for  error 

;^et  new  char 

;decrement  length 

;do  again  until  length  =  0 


;error  in  transmission 

;  statport 
;wait  for  echo 


; dataport 

jwas  error  code  received 

;if  not,  retransmit  error  code 
jsend  second  error  code 

;  statport 
;wait  for  echo 


;dataport 

iwas  error  code  received 

tif  not,  retransmit  error  code 
Jretransmit  char 

»end  of  transmission 

;  statport 
;wait  for  echo 


;dataport 
Jget  echo 
;check  for  error 

;send  out  next  finish  code 
;until  four  are  sent  out 
;done 
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error3 : 


mov 
out 
inc 

Jrrp 


al. 

dx 
loopc 


finish 
al 


c  ode 


; ret  ransmit 
; sta tport 
;check  again 


END  PROC  Send  who  tlocfc; 


PROC  Broadcast; 


— 3;« 
— >;« 
— * 
>:« 


AUTHOR:  THOr^AS  V.  WORKS 
DATI:  SEPTEMBER  1986 

DESCRIPTION:   BROADCAST  TRANSMITS  DATA  RECEIVED  FROM 
THE  SOURCE  TO  ALL  ACTIVE  DESTINATION  TERMINALS, 
BYPASSING  THE  SOURCE  AND  THE  BULLETIN  BOARD  PORTS.   A 
BYTE  IS  RECEIVED  EROM  THE  SOURCE  AND  TRANSMITTED  TO 
EACH  DESTINATION,  THEN  BROADCAST  CHECKS  EACH  ECHO  FOR 
ERROR.   BROADCAST  FINISHES  WHEN  IT  RECEIVES  A  SEQUENCE 
OF  FOUR  FINISH  CODES  (0Flh)  FROM  EACH  DESTINATION. 


portnuiT 

"boardnurr 

ctr 

portone 

tullport 


nextch 
1  one: 


1  two: 


equ 
equ 
equ 
equ 
equ 


08h 

?3h 

04h 

0100h 

ei9Ch 


pop  ax 
pop  di 
pop  si 
push  si 
push  di 
push  ax 


mov   ch, 

mov   cl, 

mov   "bl , 

mov   th, 

mov   dx , 

inc   dx 

in   al , 

and   al,    recv_rdy 

Jz   l_one 

d'ec   dx 

in   al,    dx 

mov    [di] ,   al 

mov  dx,   portone 


0 
ctr 

portnum 

hoardnum 

si 

dx 


skip: 


cmp  dx , 
Jz  skip 
cmp  dx, 
Jz  skip 
out  dx , 
add  dx  , 


SI 


bullport 

al 
4 


Jreturn  address 
;temporary  input  holder 
; source  port  (data  ) 
;restore  stack 


;ioad  error  code  counter 
;ioad  finish  code  counter 


;ioad  source  port 

Jstatport 

;wait  for  input 


Jdataport 

;get  input 

;store  input 

;ioad  first  destination  port 

;do  not  send  to  source  pert 

;or  to  bulletin  toard  port 

;send  input 

Jnext  destination  port 
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dec  11 
jnz  l_two 

add  dx ,  32 
mov  tl ,  portnum 
dec  th 
Jnz  l_two 

mcv   tl ,    portnum 

mov   th ,    'boardnum 

mov   dx,    portone 
l_three:    cmp   dx,    si 

jz   next 

cmp  dx,  "bullport 

jz  next 

inc  dx 

in  al ,  dx 

dec  dx 

and  al ,  recv_rdy 

jz  next 

in  al ,  dx 

cmp  al,  [di] 

jnz  errorb 
next:    add  dx,  4 

dec  tl 

jnz  l_three 

add  dx,  32 

mov  tl ,  portnum 

dec  th 

jnz  l_three 

mov  th,  toardnum 
cmp  ch ,  0 
Jz  cont 


loopl0  :  pop  dx 
loopll  :  inc  dx 
l_six:    in  al,  dx 

and  al ,  recv  rdy 

Jz  l_six 

dec  dx 

in  al ,  dx 

cmp  al ,  error_rode 

Jnz  reerror 

mov  al,  [di] 

out  dx,  al 
inc  dx 
l_seven:  in  al,  dx 

and  al  ,  recv_rdy 


;continue  sendin,?  until  all 
jports  are  addressed 
Jnext  toard 
; rel oad 

;continue  sending  until  all 
Jtoards  are  addressed 
Ireload  for  echo  checicing 

;load  first  destination  port 
;do  not  check  source  port 

;or  tulletin  toard 

;  sta  tport 
•wait  for  echo 
;dataport 

Jgo  to  next  port  if  no  response 
;get  echo 
jcheck  for  error 

;next  destination  port 

Jcontinue  receiving  until  all 
;ports  are  addressed 
Inext  hoard 
; rel oad 

•continue  receiving  until  all 
;toards  are  addressed 
Ireload 

;if  no  errors,  continue 

JERROR  HANTLER 

Jget  next  error  address  (data) 

Jstatport 

•wait  for  echo 


;dataport 
;get  echo 
;check  for  error 

;if  no  error,  retransmit  char 
;input 

; statport 
;wait  for  echo 
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j  z    l_5even 
dec   dT 
in   al ,    dx 
ctrp   al ,    [di] 

jnz  reerror 
dec  ch 

jnz  loopl0 
jFip  cont 

reerror:  mov  al,  error_code 
out  dx,  al 
jmp  loopll 

error t:   push  dx 

inc  ch 

mov  al ,  error_code 

out  dx,  al 

jmp  lack 


cont :  mov   al ,    [di] 

mov   dx,    si 
out   dx,    al 
cmp   al ,    end_process 
jnz   no_end 
dec    cl 

jz   finis 

jmp  nextch 
no_end:   mov  cl,  ctr 
jmp  nextch 

finis:    ret 

END  PROC  Broadcast; 

PROC  Concxfer; 


Jdataport 

»^et  echo 

Jcheck  for  error  in 

;  retransmission 

;if  we  finally  got  it  right,  gd 
;to  next  error  address 
;until  ch  =  0 
> cent inue 

Jresend  error  code 


isave  address  where  error 

;occurred 

;count  addressess 

Jsend  out  error  code 
;return  to  check  other  ports 

;CONTINUI 

Jsend  echo  lack  to  source 


;check  for  end  of  process 

Jhegin  counting  end  process 
;c  odes 

;until  four  in  a  row  are 
; received 

;if  not,  reload  and 
;get  next  char  input 


—'^   AUTHOR:  THOMAS  V.  WORKS 

--''•'  DATE:  AUGUST  1986 

— *  DESCRIPTION:   CONCXFER  TRANSMITS  DATA  RECEIVED  FROM 

— '^  THE  SOURCE  TO  THE  ACTIVE  DESTINATION  TERMINAL.  A  BYTE 

— *  IS  RECEIVED  FROM  THE  SOURCE  AND  TRANSMITTED  TO  THE 

— ^  DESTINATION,  WITHOUT  ERROR  CHECKING.  ERROR  CHECKING  IS 

— *  DONE  BY  THE  TERMINALS.  CONCXFER  FINISHES  WHEN  IT 

— *  RECEIVES  A  SEQUENCE  OF  FOUR  FINISH  CODES  (0Flh)  FROM 

— *  THE  DESTINATION. 


^  — 
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end_pr  ocess 


equ  0yih 


pop  ax 
pop  ex 

pop  tx 
push  ax 

mov  di  ,  4 

mcv  dx»  bx 
start:  inc.  dx  0 
loopl:    ir  al,  dx 

and  al  ,  recv_rdy 

Jz  loopl 

dec  dx 

in  a 1 ,  d X 

rrov  dx,  ex 

out  dx,  al 

ine  dx 
loop2:    in  al ,  dx 

and  al ,  recv_rdy 

jz  loop2 

dee  dx 

in  al,  dx 

mcv  dx ,  "bx 

out  dx,  al 

cmp  al,  end_proeess 

jnz  lotyet 
dec  di 

jz  fini 
jmp  start 
notyet  :   mov  di  ,  4 
jmp  start 

fini:    ret 

ENE  PROC  Corcxfer; 


ireturn  address 
;destport  (data) 
Jsourceport  (data) 
Jrestore  stack 

Jfinish  code  counter 

Isourcepcrt  (data) 

;  statport 

;check  for  incoming  char 


Jdataport 

;get  incoming  char 

Jdestport  (data) 

Jsend  char  to  receiver 

; statport 

;check  for  echo 


dataport 

get  echo 

sourceport  (data) 

send  echo  to  transmitter 

if  end  process  code,  tegin 

count  ing 

if  not,  get  next  char 

until  four  end  process  codes 

are  received 


;reload  finish  code  counter 


PROC  Xfer; 


AUTHOR:  THOMAS  V.  WORKS 

CATI:  SFPTPMBIR  19B5 

DESCRIPTION:   XFER  TRANSMITS  THE  XFER  COEE  (l)  TO  THE 

SOURCE  INDICATING  THAT  THE  DESTINATION  TERMINAL  IS 

ACTIVE. 


pop  ax 
pop  dx 
push  ax 


Jreturn  address 
;sourceport  (data) 
;restore  stack 
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xrriti:        mov   al,    ?"1  ;set    5end_ready   to    true 

out  dT ,  al 

inr  dx  ;statport 

loopxl:   in  al,  dx  ;wait  for  echo 

and  al ,  rerv_rdy 

jz  loopxl 

dec  dx  Jdataport 

ir  al ,  dx  ',^et    echo 

crp  al,  01  ;check  for  error 

jnz  xnitl  ;if  error,  retransmit 

ret 

END  FROC  Ifer; 

PROC  Nc_xfer; 

— ';-•  AUTHOR:  THOMAS  V.  WORKS 

— *  DATE:  SEFTEr'BER  1986 

— *  EESCRIPTICN:   NO_XFER  TRANSMITS  THE  NO_XFER  CODE  (0)    -- 

— *  TO  THE  SOURCE  INDICATING  THAT  THE  DESTINATION  TERMINAL  -' — 

--';=  IS  NOT  ACTIVE.  "':- 

pop  ax  Jreturn  address 

pop  dx  ;sourcepcrt  (data) 

push  ax  ;restore  stack 

xnit2:    mov  al ,  00  ;set  send_ready  to  false 

out  dx,  al 

inc  dx  Jstatport 

locpx2:   in  al ,  dx  Jwait  for  echo 

and  al ,  rerv_rdy 

Jz  loopx2 

dec   dx  ;dataport 

inal,dx  ;getecho 

cmp  al,  00  ;checlc  for  error 

jnz  xmit2  ;if  error,  retransmit 

ret 
END  PROC  No_xfer; 
main : 
END  Coasmlit) 


WITH  Ccasmlit,  Concutil,  Corcname; 
PACKAGE  BODY  Poll  IS 

USE  Coasmlih,  Concutil,  Concname; 
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~*  r.AIN  CONCINTRATOR  PROGRAM  >:— - 

TYPZ  conctn  IS 
RECORD 

process:  tyte; 

source:  byte; 

destination:  tyte; 
END  recore; 

connection:  conctn; 


ctrl_f 
ctrl_n' 
ctrl_d 
ctrl'w 
ctrl't 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CO'MSIANT 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


tyte 
tyte 
tyte 
tyte 
tyte 


(16#06#); 
(16#0D#); 
(16#04#); 
(16#17#) ; 
(16#02#); 


tcardno:    CONSTANT    :=   3; 

portno:   CONSTANT  :=  8; 

firstport:  CONSTANT  :=  16#100#; 

lastport:  CONSTANT  :=  16#19C#;  —BULLETIN  BOARD — 

pollport:  Integer; 
inaueue:  Boolean; 
numqueue:  Integer  :=  0» 
index:  Integer  :=  0; 
r.ew_queue:  Integer; 
racEine_count :  Integer  :=  0; 
input:  tyte; 

PROCEDURE  Convert  (idx:  IN  Integer)  IS 

— *  AUTHOR:  THOMAS  V.  WORKS 

~*  DATE:  SEPTEMBER  1986 

— *  DESCRIPTION:   CONVERT  CONVERTS  THE  CONNECTION  RECORD 

— *  RECEIVED  FROM  THE  TERMINAL  TO  PHYSICAL  PORT  ADDRESSES 

BEGIN 


CASE  qu 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 


eue(idx) .d 

1  =>  queu 

2  =>  queu 

3  =>  queu 

4  =>  queu 
=>  queu 
=>  queu 
=>  queu 
=>  queu 
=>  queu 


6 
7 

8 
9 


10   =">   que 


estpor 
e  (  i  d  X 
e(  idx 
e(  idx 
e(idx 
e(idx 
e(  idx 
e(  idx 
e(idx 
e(idx 
ue ( idx 


t  IS 

.destport 

.  destport 

•destport 

•destport 

•destport 

•destport 

•destport 

•destport 

•destport 

)  .destport 


15#100#; 

16#104#; 

16#108#; 
ie#i0C#; 

16#110#? 

I6#ii4#; 
I6#ii8#; 
i6#iic#; 
16#140#; 

=  16#144#; 
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WHIN 

WHFN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WREN 
WHEN 
END  CAS 

CASE  qu 

WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WHEN 
WEEN 
WHEN 
WEEN 
END  CAS 


11  - 

12  = 

17  = 
14 
15 
16 
17 

18  = 

19  = 
2^  = 

21  = 

22  = 

23  = 

24  = 
OTHE 

e; 


? 

N 

=  > 

=  > 


q  ueue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 
queue 


RS  =>  N 


idx 
idj 
idx 
idx 
idx 
idx 
idx 
idx 
idx 
idx 
idx 
idx 
idx 

ull; 


.destport 
.destport 
.  destport 
.destport 
.destport 
.destport 
.destport 
.destport 
.destport 
.destport 
.destport 
.destport 
.destport 
.destport 


ie#i4S#; 

16#14C#; 

16#150#; 

16#154#; 

I6#i5e#; 

16#15C#; 
16#180#; 
16#164#; 

I6#ie8#; 

16#18C#; 

16#190#; 

16#194#; 

ie#i98#; 

16#19C#; 


eue( id 
1  => 

=> 
=> 
=> 
=> 
=> 

—  \ 

=  > 

-N 


7 

8 
9 

10 
11 
12 
13 
14 
15 
15 
17 
IS 
19 
20 
21 
22 
23 
24 
OTHER 

e; 


=> 
=> 

=  > 
=  > 

=  > 
=  > 


x)  . s ourcep 
queue ( idx 
queue( idx 
queue( idx 
queue ( idx 
queue ( idx 
queue( idx 
queue ( idx 
queue (idx 
queue ( idx 
queue  f  idx 
queue( idx 
queue  (idx 
queue  ^  idx 
queue( idx 
queue(idx 
queue( idx 
queue( idx 
queue ( idx 
queue ( idx 
queue ( idx 
queue (idx 
queue (idx 
queue ( idx 
queue ( idx 

s  =>  null; 


ort  IS 
sourc 
sourc 
sourc 
sourc 
s  cure 
sourc 
sourc 
sourc 
sourc 
.sour 
.  sour 
.sour 
.sour 
.sour 
.  sour 
.  sour 
.sour 
.sour 
.  sour 
.  sour 
.sour 
.sour 
.  sour 

) . sour 


eport 

eport 

eport 

eport 

eport 

eport 

eport 

eport 

eport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 

ceport 


16#100#; 
16#104#; 

16#108#; 

16#10C#; 
I6#ii0#; 
15#114#; 
i6#ii8#; 
i6#iic#; 
16#140#; 

:  16#144#; 
:  16#148#; 
=  16#14C#; 

=  16#150#; 

=  16#154#; 
'■  16#158#; 
=  16#15C#; 

'■  i5#i80#; 
:  I6#ie4#; 

=  15#188#; 
■■    16#18C#; 

=  16#190#; 

:  16#194#; 
=  15#198#; 
=  16#19C#; 


END  Convert; 


BEGIN 

LOOP   --r^AIN  — 
pollport  :=  firstport; 
machine  c  cunt  : =  0 ; 
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Outer: 

lOR  i  IN  1.  .toardnc  LOOP 
FOR  j  IN  L.portno  LOOP 

machine  court  :=  machine_count  +  i; 
active_Iist '  iTachine_coun  t )  :=  false; 
Check_port  (pollport,  ready); 
I"F  ready  THEN 

active_list (machine_count )  ;=  true; 

~*  CHICK  OUIUE  FOR  WAITING  PROCESSFS  FOR 
~-  POLLFD  PORT 

Checl^_queue  (numqueue,  pollport,  index, 
inqueue ) ; 


IF  inqueue  THFN 

--'^  SFRVICF  WAITING  PROCISS  FIRST 

— *  ESTABLISH  CONNECTION  WITH  SOURCE  OF     -— 

— *  WAITING  PROCESS  -— 

Connect  (queue( index) .sourceport, 
connection'ADERESS) ; 

— -  DECODE  CONNECTION  RECORD  '—- 

queue (index ). sourceport  := 

Integer  (connection. source) ; 
queue ( index ) .dest port  := 

Integer  (connection.destination) ; 
queue ( index ) .process, type  := 

c on nection. process; 
Convert  (index); 

— *  TELL  SOURCE  TO  SEND  *  — 

Xfer  fqueue(index) .sourceport ) ; 

— *  ESTABLISH  DATA  COMr^UNICATION  CHANNEL  -— 

Concxfer  (queue(index) .sourceport , 
queue ( index) .destport ) ; 

— *  REMOVE  PROCESS  FROM  QUEUE  *  — 

numqueue  :=  numqueue  -  i; 
FOR  m  IN  1.  .255  LOOP 
FOR  n  IN  1.  .255  LOOP 

null; 
~*  delay  to  allow  receiver  to  get  ready  '^- 

— -  TO  SEND  ^- 

END  loop; 
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END  loop; 

Check_pcrt  ''pollport,  ready); 

~-  IF  POLLED  PORT  DOES  NOT  SEND  IN  -— 
__;;c  TIME,  RESUr^E  POLLING  FROM  START  --- 
EXIT  Outer  WHEN  NOT  ready; 

— *  WHEN  WAITING  PROCESS  IS  FINISHED  -—     ' 

— *  TELL  POLLED  PORT  NOTHING  WAITING  '— - 

— -  AND  PROCESS  ORIGINAL  REQUEST  -— 
Oiieue_status  (pollport,  zero); 
END  if;  —INOUEUE— 

~-  PROCESS  NEW  REQUEST  -' — 

--=:'  ESTABLISH  CONNECTION  WITH  SOURCE  OF  -~ 

— *  ORIGINAL  REOUEST  -— 

Connect  (pollport,  connection 'ADDRESS ) ; 

— *  LATEST  QUEUE  POSITION   *— 

new_queue  :=  numqueue  +  i; 

— *  DECODE  CONNECTION  '•'— 

queue(new_aueue ) . sourceport  := 

Integer  ( connect! on. source ) ; 
Queue(new_queue ) .des tport  := 

Integer  (connection.destination); 
queue(new_queue ) . proce 55_ type  := 

connect! on. process; 
Convert  (new_queue); 

IF  connection.destination  =  "byte  (?)  THEN 

— *  POLL  ALL  DESTINATION  PORTS  EXCEPT  -■'— 
— *  SOURCE  AND  BULLETIN  BOARD         *— 

pollport  :=  firstport; 
FOR  k  IN  1.  .portno  LOOP 
IF  (pollport  /= 

queue(Dew_ queue ).sourceport) 
AND  (pollport  /=  lastport)  THEN 
Checlc_port  (pollport,  ready); 
IF  ready  THEN 

— *  TELL  DESTINATION  *— 

queue_status  (pollport, 

connection .process )  ; 

END  if; 
END  if; 
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pollport  :=  pollport  +  4; 
IND  LOCP; 

FOR  n  IN  1..255  LOOP 
FOR  rr  IN  1..255  LOOP 

null;  ---  DELAY  TO  ALLOW  RECEIVER  --- 
---  TO  GET  READY  --- 

END  loop; 
END  loop; 

~-  TELL  SOURCE  TO  BROADCAST  -  — 

Xf er  ( queue ( aew_queue) .sourceport); 
Broadcast  (queue(new_queue) .scurceport, 
input) ; 

— '!=  RESET  POLLPORT  AND  RESUME  POLLING  -  — 

pollport  :=  queue(new  queue  )  .sourceport ; 
ELSIF  connection  .process'=  ctrl_w  THEN 

— *  TELL  SOURCE  TO  RECEI7E  NET  STATUS  *  — 
— *  THEN  SEND  NET  STATUS  -  — 

Xfer  Cpollport); 
Net  Stat  (pollport ) ; 
ELSE 

~*  PROCESS  NORMAL  REQUEST  *— 

— *  IS  DESTINATION  ACTIVE?  ^'''— 

Check_port    ( queue ( new_queue) .destport, 
ready) ; 

IF    ready   THEN 

— *  TELL  DESTINATION  WHAT  IS  COMING  '^— 

Ou9ue_status  (queue(new_queue) .destport, 

queue (new_queue) .process_type); 

— *  TELL  SOURCE  TO  SEND  *~ 

Xfer  (pollport); 

IF  connection. process  =  ctrl_'b  THEN 

--*  ESTABLISH  CONNECTION  WITH  *  — 
~*  BULLETIN  BOARD  *~ 

Concxfer  (queue (new _queue) .destport, 

queue ( new _queue) .sourceport); 
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--'^  ESTAPLISH  DATA  COMMUMICATION  -— 
—'^'    CHANNEL  ':— - 

Concxfer  (queue (new_queue) . sourceport, 
queue(new  queue  ). destport ) ; 

FNT  if; 

ELSE 

— -  TELL  SOURCE,  CESTINATION  INACTIVE  -~ 

No_xfer  (pollport); 

IF  (queue( new_queue) .process_type  =  ctrl_( 

OR  (queue(new  queue) .process  type  =  ctrl~r 

THEN 

— -  PLACE  PROCESS  IN  QUEUE  -  — 
~-  IF  FILE  OR  MESSAGE      =;— - 

nupqueue  :=  numqueue  +  i; 

END  if; 
END  if; 
END  if; 

END  if;  —READY  — 

pollport  :=  pollport  +  4; 
EXIT  WHEN  pollport  =  lastport; 

— *  DON'T  POLL  BULLETIN  BOARD  '^  — 

END  loop;  —inner  for  loop— 

pollport  :=  pollport  +  32; 
END  loop  Outer; 

FND  loop;  —main  loop- 
end  Poll; 


The   following  tatch   file   (cone. sub)  is  used   to   compile   the 
preceeding  programs: 

era  coasrrlib.  sym 
era  concutil . sym 
era  concnarre.  sym 
era  concutil  .  jrl 
era  coasmlib .  jrl 
era  poll. jrl 
era  poll.cmd 
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I 


Janus    concr.arre.  spc 
janus   c  oasrrlit .  spc 
jar.us    concutil.spc 
jasmSo   coasrrlit 
janus    concutil 
janus   poll 
jlinlc   poll 
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AFPENCIX   F 
GLOSSARY 

1.  Z-100 

Z-1Z0  is  the  specific  [rodel  r^ame  for  the  n^icro- 
corrputers  us^d  ir.  this  r^etworlc.  The  vendor  is  Zenith  Data 
Sy stejs . 

2.  SEC 

SBC  is  an  acroryir  for  Single  Board  Computer.  It  is  a 
configuration  of  VLSI  (Very  Lar^e  Scale  Integration)  cir- 
cuitry on  one  computer  hoard  capatle  of  performing  the 
functions  of  a  computer.  The  SBC  is  the  driving  force  in  the 
Concentrator.  The  vendor  of  the  e6/12A  SEC  used  in  this 
thesis  is  Intel  Corporation. 

3.  Concentrator 

The  Concentrator  is  the  collection  of  hardware  and 
software  that  performs  the  network  switching  functions. 

4.  (MULTIBUS 

(MULTIBUS  is  the  specific  model  name  for  the  hardware 
that  allows  multiple  SBC's  to  communicate  directly  with 
common  memory. 

5.  Local  Area  Network 

A  Local  Area  Network  is  any  network  that  operates 
exclusively  within  a  low  radius  (max  50  miles)  region! 
usually  a  single  huilding  or  a  group  of  buildings. 
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6.  ^or'i^ station 

A  Workstation  is  viewed  as  the  Z-100  mi  croc  cm  put  er  an 
associated  peripheral  devices  that  perform  the  application 
functions  of  the  network. 

7.  Process 

Processes  are  viewed  as  the  transfer  of  files, 
messages,  or  directorys  tetween  Z-100  workstations.  Each 
process  has  a  sending  and  a  receiving  function. 

6.  Communication 

Communication  is  viewed  as  transmitting  data  and/or 
commands  tetween  the  sending  and  receiving  functions  of  a 
process  . 

9.  Lata  Communication  Channel 

Lata  Communication  Channel  refers  to  the  channel  or 
'pathway'  used  to  transfer  intra-process  communications 
tetween  Z-1Z0  workstations. 

10.  Circuit  Switching 

Circuit  Switching  refers  to  the  method  of  network 
communication  whereby  the  entire  message  containing  data  and 
commands  is  transmitted  from  the  sender  to  the  receiver  along 
a  dedicated  communication  channel. 

11.  Ports 

Ports  are  channels  through  which  processes  communicate 


151 


12.  US/^RT 

USART  is  an  scronyrr  for  Universal  Synchronous/ 
Asynchronous  Receiver/Transmitter.  It  is  a  -microprocessor 
that  provides  con^municat  i  on  interface  letween  conputers  or 
tetwFen   a    '^crrputer   and   a    peripheral    device. 

13.  NFS 

NFS  is  an  acronyrr  for  Naval  Postgraduate  School, 
Monterey,  California. 
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